add_forcing_to_ad.F

1 SUBROUTINE add_forcing_to_ad(grid)
2    USE module_domain
3    TYPE(domain), INTENT(INOUT)  :: grid
4 #if (VAR4D_CORE == 1)
5    grid%em_a_u_1  = grid%em_a_u_1  + grid%em_g_u_1
6    grid%em_a_u_2  = grid%em_a_u_2  + grid%em_g_u_2
7    grid%em_a_v_1  = grid%em_a_v_1  + grid%em_g_v_1
8    grid%em_a_v_2  = grid%em_a_v_2  + grid%em_g_v_2
9    grid%em_a_w_1  = grid%em_a_w_1  + grid%em_g_w_1
10    grid%em_a_w_2  = grid%em_a_w_2  + grid%em_g_w_2
11    grid%em_a_ph_1 = grid%em_a_ph_1 + grid%em_g_ph_1
12    grid%em_a_ph_2 = grid%em_a_ph_2 + grid%em_g_ph_2
13    grid%em_a_t_1  = grid%em_a_t_1  + grid%em_g_t_1
14    grid%em_a_t_2  = grid%em_a_t_2  + grid%em_g_t_2
15    grid%em_a_mu_1 = grid%em_a_mu_1 + grid%em_g_mu_1
16    grid%em_a_mu_2 = grid%em_a_mu_2 + grid%em_g_mu_2
17    grid%a_moist_1 = grid%a_moist_1 + grid%g_moist_1
18    grid%a_moist_2 = grid%a_moist_2 + grid%g_moist_2
19    print*,' grid%em_g_t_1(1,1,1) =', grid%em_g_t_1(1,1,1)
20    print*,' grid%em_g_t_2(1,1,1) =', grid%em_g_t_2(1,1,1)
21    print*,' grid%em_a_t_1(1,1,1) =', grid%em_a_t_1(1,1,1)
22    print*,' grid%em_a_t_2(1,1,1) =', grid%em_a_t_2(1,1,1)
23 #endif
24 END SUBROUTINE add_forcing_to_ad