54 |
use conf_phys_m, only: conf_phys |
use conf_phys_m, only: conf_phys |
55 |
use phyredem_m, only: phyredem |
use phyredem_m, only: phyredem |
56 |
use qcheck_m, only: qcheck |
use qcheck_m, only: qcheck |
57 |
|
use ozonecm_m, only: ozonecm |
58 |
|
|
59 |
! Declaration des constantes et des fonctions thermodynamiques : |
! Declaration des constantes et des fonctions thermodynamiques : |
60 |
use fcttre, only: thermcep, foeew, qsats, qsatl |
use fcttre, only: thermcep, foeew, qsats, qsatl |
444 |
EXTERNAL conema3 ! convect4.3 |
EXTERNAL conema3 ! convect4.3 |
445 |
EXTERNAL fisrtilp ! schema de condensation a grande echelle (pluie) |
EXTERNAL fisrtilp ! schema de condensation a grande echelle (pluie) |
446 |
EXTERNAL nuage ! calculer les proprietes radiatives |
EXTERNAL nuage ! calculer les proprietes radiatives |
|
EXTERNAL ozonecm ! prescrire l'ozone |
|
447 |
EXTERNAL radlwsw ! rayonnements solaire et infrarouge |
EXTERNAL radlwsw ! rayonnements solaire et infrarouge |
448 |
EXTERNAL transp ! transport total de l'eau et de l'energie |
EXTERNAL transp ! transport total de l'eau et de l'energie |
449 |
|
|
991 |
if (nq >= 5) then |
if (nq >= 5) then |
992 |
wo = qx(:, :, 5) * zmasse / dobson_u / 1e3 |
wo = qx(:, :, 5) * zmasse / dobson_u / 1e3 |
993 |
else IF (MOD(itap - 1, lmt_pas) == 0) THEN |
else IF (MOD(itap - 1, lmt_pas) == 0) THEN |
994 |
CALL ozonecm(REAL(julien), rlat, paprs, wo) |
wo = ozonecm(REAL(julien), paprs) |
995 |
ENDIF |
ENDIF |
996 |
|
|
997 |
! Re-evaporer l'eau liquide nuageuse |
! Re-evaporer l'eau liquide nuageuse |