|
Last change
on this file was
6048,
checked in by fhourdin, 7 weeks ago
|
|
Renommage des nom de fichiers incluant des modules
|
|
File size:
691 bytes
|
| Rev | Line | |
|---|
| [5839] | 1 | !$gpum horizontal klon |
|---|
| 2 | MODULE water_int_mod |
|---|
| 3 | PRIVATE |
|---|
| 4 | |
|---|
| 5 | PUBLIC water_int |
|---|
| 6 | |
|---|
| 7 | CONTAINS |
|---|
| 8 | |
|---|
| [5894] | 9 | SUBROUTINE water_int(klon,klev,field3d,mass,field2d) |
|---|
| [2486] | 10 | |
|---|
| 11 | !============================================================= |
|---|
| 12 | ! Compute the 2D burden from 3D mixing ratios |
|---|
| 13 | ! OB (obolmd@lmd.jussieu.fr) |
|---|
| 14 | !============================================================= |
|---|
| 15 | |
|---|
| [5894] | 16 | IMPLICIT NONE |
|---|
| [2486] | 17 | |
|---|
| 18 | ! Arguments |
|---|
| 19 | INTEGER, INTENT(IN) :: klon,klev |
|---|
| 20 | REAL, DIMENSION(klon,klev),INTENT(IN) :: field3d, mass |
|---|
| 21 | REAL, DIMENSION(klon), INTENT(OUT) :: field2d |
|---|
| 22 | |
|---|
| [5839] | 23 | INTEGER i, k |
|---|
| [2486] | 24 | |
|---|
| 25 | field2d(:)=0.0 |
|---|
| 26 | DO k=1, klev |
|---|
| [5839] | 27 | DO i=1, klon |
|---|
| 28 | field2d(i)=field2d(i)+field3d(i,k)*mass(i,k) |
|---|
| 29 | ENDDO |
|---|
| [2486] | 30 | ENDDO |
|---|
| 31 | |
|---|
| 32 | RETURN |
|---|
| [5390] | 33 | END SUBROUTINE water_int |
|---|
| [5839] | 34 | |
|---|
| 35 | END MODULE water_int_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
