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

Last change on this file since 4735 was 2493, checked in by oboucher, 9 years ago

small change to remove useless lines

File size: 527 bytes
RevLine 
[2486]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
8IMPLICIT none
9
10! Arguments
11INTEGER, INTENT(IN) :: klon,klev
12REAL, DIMENSION(klon,klev),INTENT(IN)  :: field3d, mass
13REAL, DIMENSION(klon),     INTENT(OUT) :: field2d
14
15INTEGER k
16
17field2d(:)=0.0
18DO k=1, klev
19field2d(:)=field2d(:)+field3d(:,k)*mass(:,k)
20ENDDO
21
22RETURN
23END
Note: See TracBrowser for help on using the repository browser.