22 |
c et lessivage des traceurs passifs. |
c et lessivage des traceurs passifs. |
23 |
c====================================================================== |
c====================================================================== |
24 |
c Entree: |
c Entree: |
25 |
REAL dtime ! pas d'integration (s) |
REAL, intent(in):: dtime ! pas d'integration (s) |
26 |
REAL, intent(in):: pres_h(klon,klev+1) ! pression half-level (Pa) |
REAL, intent(in):: pres_h(klon,klev+1) ! pression half-level (Pa) |
27 |
REAL, intent(in):: pres_f(klon,klev)! pression full-level (Pa) |
REAL, intent(in):: pres_f(klon,klev)! pression full-level (Pa) |
28 |
REAL t(klon,klev) ! temperature (K) |
REAL t(klon,klev) ! temperature (K) |
249 |
LOGICAL llo1 |
LOGICAL llo1 |
250 |
REAL dt_con(klon,klev), dq_con(klon,klev) |
REAL dt_con(klon,klev), dq_con(klon,klev) |
251 |
REAL zmfmax, zdh |
REAL zmfmax, zdh |
252 |
REAL pdtime, zqumqe, zdqmin, zalvdcp, zhsat, zzz |
REAL, intent(in):: pdtime |
253 |
|
real zqumqe, zdqmin, zalvdcp, zhsat, zzz |
254 |
REAL zhhat, zpbmpt, zgam, zeps, zfac |
REAL zhhat, zpbmpt, zgam, zeps, zfac |
255 |
INTEGER i, k, ikb, itopm2, kcum |
INTEGER i, k, ikb, itopm2, kcum |
256 |
c |
c |
493 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
494 |
c calculer les tendances pour T et Q |
c calculer les tendances pour T et Q |
495 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
496 |
CALL flxdtdq(pdtime, itopm2, paph, ldcum, pten, |
CALL flxdtdq(itopm2, paph, ldcum, pten, |
497 |
e zmfus, zmfds, zmfuq, zmfdq, zmful, zdmfup, zdmfdp, zdpmel, |
e zmfus, zmfds, zmfuq, zmfdq, zmful, zdmfup, zdmfdp, zdpmel, |
498 |
s dt_con,dq_con) |
s dt_con,dq_con) |
499 |
c |
c |
725 |
C FOR CUMULUS PARAMETERIZATION |
C FOR CUMULUS PARAMETERIZATION |
726 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
727 |
C |
C |
728 |
REAL pdtime |
REAL, intent(in):: pdtime |
729 |
REAL pten(klon,klev), ptenh(klon,klev) |
REAL pten(klon,klev), ptenh(klon,klev) |
730 |
REAL pqen(klon,klev), pqenh(klon,klev), pqsen(klon,klev) |
REAL pqen(klon,klev), pqenh(klon,klev), pqsen(klon,klev) |
731 |
REAL pgeo(klon,klev), pgeoh(klon,klev) |
REAL pgeo(klon,klev), pgeoh(klon,klev) |
1054 |
LOGICAL ldland(klon), ldcum(klon) |
LOGICAL ldland(klon), ldcum(klon) |
1055 |
INTEGER k, kp, i |
INTEGER k, kp, i |
1056 |
REAL zcons1, zcons2, zcucov, ztmelp2 |
REAL zcons1, zcons2, zcucov, ztmelp2 |
1057 |
REAL pdtime, zdp, zzp, zfac, zsnmlt, zrfl, zrnew |
REAL, intent(in):: pdtime |
1058 |
|
real zdp, zzp, zfac, zsnmlt, zrfl, zrnew |
1059 |
REAL zrmin, zrfln, zdrfl |
REAL zrmin, zrfln, zdrfl |
1060 |
REAL zpds, zpdr, zdenom |
REAL zpds, zpdr, zdenom |
1061 |
INTEGER ktopm2, itop, ikb |
INTEGER ktopm2, itop, ikb |
1260 |
c |
c |
1261 |
RETURN |
RETURN |
1262 |
END |
END |
1263 |
SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten |
SUBROUTINE flxdtdq(ktopm2, paph, ldcum, pten |
1264 |
. , pmfus, pmfds, pmfuq, pmfdq, pmful, pdmfup, pdmfdp |
. , pmfus, pmfds, pmfuq, pmfdq, pmful, pdmfup, pdmfdp |
1265 |
. , pdpmel, dt_con, dq_con) |
. , pdpmel, dt_con, dq_con) |
1266 |
use dimens_m |
use dimens_m |
1285 |
REAL dt_con(klon,klev), dq_con(klon,klev) |
REAL dt_con(klon,klev), dq_con(klon,klev) |
1286 |
c |
c |
1287 |
INTEGER ktopm2 |
INTEGER ktopm2 |
|
REAL pdtime |
|
1288 |
c |
c |
1289 |
INTEGER i, k |
INTEGER i, k |
1290 |
REAL zalv, zdtdt, zdqdt |
REAL zalv, zdtdt, zdqdt |