9 |
c |
c |
10 |
use dimens_m |
use dimens_m |
11 |
use dimphy |
use dimphy |
12 |
use YOMCST |
use SUPHEC_M |
13 |
use yoethf |
use yoethf_m |
14 |
use fcttre |
use fcttre |
15 |
IMPLICIT none |
IMPLICIT none |
16 |
c====================================================================== |
c====================================================================== |
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) |
215 |
. dt_con, dq_con, pmflxr, pmflxs) |
. dt_con, dq_con, pmflxr, pmflxs) |
216 |
use dimens_m |
use dimens_m |
217 |
use dimphy |
use dimphy |
218 |
use YOMCST |
use SUPHEC_M |
219 |
use yoethf |
use yoethf_m |
220 |
use yoecumf |
use yoecumf |
221 |
IMPLICIT none |
IMPLICIT none |
222 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
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 |
506 |
. klab,pen_u, pde_u, pen_d, pde_d) |
. klab,pen_u, pde_u, pen_d, pde_d) |
507 |
use dimens_m |
use dimens_m |
508 |
use dimphy |
use dimphy |
509 |
use YOMCST |
use SUPHEC_M |
510 |
use yoethf |
use yoethf_m |
511 |
IMPLICIT none |
IMPLICIT none |
512 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
513 |
C THIS ROUTINE INTERPOLATES LARGE-SCALE FIELDS OF T,Q ETC. |
C THIS ROUTINE INTERPOLATES LARGE-SCALE FIELDS OF T,Q ETC. |
631 |
* ptu, pqu, plu, ldcum, kcbot, klab) |
* ptu, pqu, plu, ldcum, kcbot, klab) |
632 |
use dimens_m |
use dimens_m |
633 |
use dimphy |
use dimphy |
634 |
use YOMCST |
use SUPHEC_M |
635 |
use yoethf |
use yoethf_m |
636 |
IMPLICIT none |
IMPLICIT none |
637 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
638 |
C THIS ROUTINE CALCULATES CLOUD BASE VALUES (T AND Q) |
C THIS ROUTINE CALCULATES CLOUD BASE VALUES (T AND Q) |
716 |
. pen_u, pde_u) |
. pen_u, pde_u) |
717 |
use dimens_m |
use dimens_m |
718 |
use dimphy |
use dimphy |
719 |
use YOMCST |
use SUPHEC_M |
720 |
use yoethf |
use yoethf_m |
721 |
use yoecumf |
use yoecumf |
722 |
IMPLICIT none |
IMPLICIT none |
723 |
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) |
1020 |
. , pmflxr, pmflxs) |
. , pmflxr, pmflxs) |
1021 |
use dimens_m |
use dimens_m |
1022 |
use dimphy |
use dimphy |
1023 |
use YOMCST |
use SUPHEC_M |
1024 |
use yoethf |
use yoethf_m |
1025 |
use fcttre |
use fcttre |
1026 |
use yoecumf |
use yoecumf |
1027 |
IMPLICIT none |
IMPLICIT none |
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 |
1267 |
use dimphy |
use dimphy |
1268 |
use YOMCST |
use SUPHEC_M |
1269 |
use yoethf |
use yoethf_m |
1270 |
use yoecumf |
use yoecumf |
1271 |
IMPLICIT none |
IMPLICIT none |
1272 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
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 |
1335 |
. pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf) |
. pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf) |
1336 |
use dimens_m |
use dimens_m |
1337 |
use dimphy |
use dimphy |
1338 |
use YOMCST |
use SUPHEC_M |
1339 |
use yoethf |
use yoethf_m |
1340 |
use yoecumf |
use yoecumf |
1341 |
IMPLICIT none |
IMPLICIT none |
1342 |
C |
C |
1446 |
. lddraf, pen_d, pde_d) |
. lddraf, pen_d, pde_d) |
1447 |
use dimens_m |
use dimens_m |
1448 |
use dimphy |
use dimphy |
1449 |
use YOMCST |
use SUPHEC_M |
1450 |
use yoethf |
use yoethf_m |
1451 |
use yoecumf |
use yoecumf |
1452 |
IMPLICIT none |
IMPLICIT none |
1453 |
C |
C |
1561 |
SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall) |
SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall) |
1562 |
use dimens_m |
use dimens_m |
1563 |
use dimphy |
use dimphy |
1564 |
use YOMCST |
use SUPHEC_M |
1565 |
use yoethf |
use yoethf_m |
1566 |
use fcttre |
use fcttre |
1567 |
IMPLICIT none |
IMPLICIT none |
1568 |
c====================================================================== |
c====================================================================== |