source: LMDZ5/trunk/libf/phylmd/water_int.F90 @ 2492

Last change on this file since 2492 was 2486, checked in by oboucher, 9 years ago

Adding 2D diagnostics for water vapour tendencies to check for water conservation

File size: 809 bytes
Line 
1subroutine water_int(klon,klev,field3d,mass,field2d)
2
3!=============================================================
4! Compute the 2D burden from 3D mixing ratios
5!  OB (obolmd@lmd.jussieu.fr)
6!=============================================================
7
8USE phys_local_var_mod, ONLY : d_u_vdf,d_v_vdf,d_t_vdf,d_u_ajs,d_v_ajs,d_t_ajs,d_u_con,d_v_con,d_t_con,d_t_diss
9USE phys_local_var_mod, ONLY : d_t_eva,d_t_lsc,d_q_eva,d_q_lsc
10USE phys_output_var_mod, ONLY : bils_ec,bils_ech,bils_tke,bils_kinetic,bils_enthalp,bils_latent,bils_diss
11
12IMPLICIT none
13
14! Arguments
15INTEGER, INTENT(IN) :: klon,klev
16REAL, DIMENSION(klon,klev),INTENT(IN)  :: field3d, mass
17REAL, DIMENSION(klon),     INTENT(OUT) :: field2d
18
19INTEGER k
20
21field2d(:)=0.0
22DO k=1, klev
23field2d(:)=field2d(:)+field3d(:,k)*mass(:,k)
24ENDDO
25
26RETURN
27END
Note: See TracBrowser for help on using the repository browser.