source: LMDZ6/trunk/libf/phylmd/water_int.f90 @ 5353

Last change on this file since 5353 was 5268, checked in by abarral, 7 weeks ago

.f90 <-> .F90 depending on cpp key use

File size: 527 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
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.