1 |
|
5756 |
subroutine 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 |
|
|
|
8 |
|
|
IMPLICIT none |
9 |
|
|
|
10 |
|
|
! Arguments |
11 |
|
|
INTEGER, INTENT(IN) :: klon,klev |
12 |
|
|
REAL, DIMENSION(klon,klev),INTENT(IN) :: field3d, mass |
13 |
|
|
REAL, DIMENSION(klon), INTENT(OUT) :: field2d |
14 |
|
|
|
15 |
|
|
INTEGER k |
16 |
|
|
|
17 |
✓✓ |
5727220 |
field2d(:)=0.0 |
18 |
✓✓ |
230240 |
DO k=1, klev |
19 |
✓✓ |
223367336 |
field2d(:)=field2d(:)+field3d(:,k)*mass(:,k) |
20 |
|
|
ENDDO |
21 |
|
|
|
22 |
|
5756 |
RETURN |
23 |
|
|
END |