40 |
C |
C |
41 |
c |
c |
42 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
43 |
real pplay(klon,klev) |
real, intent(in):: pplay(klon,klev) |
44 |
REAL t(klon,klev) |
REAL t(klon,klev) |
45 |
c |
c |
46 |
REAL pclc(klon,klev) |
REAL pclc(klon,klev) |
244 |
c |
c |
245 |
c Arguments d'entree: |
c Arguments d'entree: |
246 |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
247 |
REAL pplay(klon,klev) ! pression (Pa) au milieu de couche |
REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche |
248 |
REAL t(klon,klev) ! temperature (K) |
REAL t(klon,klev) ! temperature (K) |
249 |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
250 |
REAL rain(klon) ! pluie convective (kg/m2/s) |
REAL rain(klon) ! pluie convective (kg/m2/s) |
324 |
c |
c |
325 |
c Arguments d'entree: |
c Arguments d'entree: |
326 |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
327 |
REAL pplay(klon,klev) ! pression (Pa) au milieu de couche |
REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche |
328 |
REAL t(klon,klev) ! temperature (K) |
REAL t(klon,klev) ! temperature (K) |
329 |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
330 |
c |
c |