24 |
c Entree: |
c Entree: |
25 |
REAL dtime ! pas d'integration (s) |
REAL 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 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) |
29 |
REAL q(klon,klev) ! humidite specifique (g/g) |
REAL q(klon,klev) ! humidite specifique (g/g) |
30 |
REAL w(klon,klev) ! vitesse verticale (Pa/s) |
REAL w(klon,klev) ! vitesse verticale (Pa/s) |
217 |
use dimphy |
use dimphy |
218 |
use YOMCST |
use YOMCST |
219 |
use yoethf |
use yoethf |
220 |
|
use yoecumf |
221 |
IMPLICIT none |
IMPLICIT none |
222 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
|
include "YOECUMF.h" |
|
223 |
C ---------------------------------------------------------------- |
C ---------------------------------------------------------------- |
224 |
REAL pten(klon,klev), pqen(klon,klev), pqsen(klon,klev) |
REAL pten(klon,klev), pqen(klon,klev), pqsen(klon,klev) |
225 |
REAL ptte(klon,klev) |
REAL ptte(klon,klev) |
717 |
use dimphy |
use dimphy |
718 |
use YOMCST |
use YOMCST |
719 |
use yoethf |
use yoethf |
720 |
|
use yoecumf |
721 |
IMPLICIT none |
IMPLICIT none |
722 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
723 |
C THIS ROUTINE DOES THE CALCULATIONS FOR CLOUD ASCENTS |
C THIS ROUTINE DOES THE CALCULATIONS FOR CLOUD ASCENTS |
724 |
C FOR CUMULUS PARAMETERIZATION |
C FOR CUMULUS PARAMETERIZATION |
725 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
|
include "YOECUMF.h" |
|
726 |
C |
C |
727 |
REAL pdtime |
REAL pdtime |
728 |
REAL pten(klon,klev), ptenh(klon,klev) |
REAL pten(klon,klev), ptenh(klon,klev) |
1022 |
use YOMCST |
use YOMCST |
1023 |
use yoethf |
use yoethf |
1024 |
use fcttre |
use fcttre |
1025 |
|
use yoecumf |
1026 |
IMPLICIT none |
IMPLICIT none |
1027 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
1028 |
C THIS ROUTINE DOES THE FINAL CALCULATION OF CONVECTIVE |
C THIS ROUTINE DOES THE FINAL CALCULATION OF CONVECTIVE |
1029 |
C FLUXES IN THE CLOUD LAYER AND IN THE SUBCLOUD LAYER |
C FLUXES IN THE CLOUD LAYER AND IN THE SUBCLOUD LAYER |
1030 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
|
include "YOECUMF.h" |
|
1031 |
C |
C |
1032 |
REAL cevapcu(klev) |
REAL cevapcu(klev) |
1033 |
C ----------------------------------------------------------------- |
C ----------------------------------------------------------------- |
1265 |
use dimphy |
use dimphy |
1266 |
use YOMCST |
use YOMCST |
1267 |
use yoethf |
use yoethf |
1268 |
|
use yoecumf |
1269 |
IMPLICIT none |
IMPLICIT none |
1270 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
1271 |
c calculer les tendances T et Q |
c calculer les tendances T et Q |
1272 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
|
include "YOECUMF.h" |
|
1273 |
C ----------------------------------------------------------------- |
C ----------------------------------------------------------------- |
1274 |
LOGICAL llo1 |
LOGICAL llo1 |
1275 |
C |
C |
1336 |
use dimphy |
use dimphy |
1337 |
use YOMCST |
use YOMCST |
1338 |
use yoethf |
use yoethf |
1339 |
|
use yoecumf |
1340 |
IMPLICIT none |
IMPLICIT none |
1341 |
C |
C |
1342 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
1354 |
C CHECK FOR NEGATIVE BUOYANCY OF AIR OF EQUAL PARTS OF |
C CHECK FOR NEGATIVE BUOYANCY OF AIR OF EQUAL PARTS OF |
1355 |
C MOIST ENVIRONMENTAL AIR AND CLOUD AIR. |
C MOIST ENVIRONMENTAL AIR AND CLOUD AIR. |
1356 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
|
include "YOECUMF.h" |
|
1357 |
C |
C |
1358 |
REAL ptenh(klon,klev) |
REAL ptenh(klon,klev) |
1359 |
REAL pqenh(klon,klev) |
REAL pqenh(klon,klev) |
1447 |
use dimphy |
use dimphy |
1448 |
use YOMCST |
use YOMCST |
1449 |
use yoethf |
use yoethf |
1450 |
|
use yoecumf |
1451 |
IMPLICIT none |
IMPLICIT none |
1452 |
C |
C |
1453 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
1465 |
C B) CORRECTING FOR EVAPORATION TO OBTAIN SATURATED STATE. |
C B) CORRECTING FOR EVAPORATION TO OBTAIN SATURATED STATE. |
1466 |
C |
C |
1467 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
|
include "YOECUMF.h" |
|
1468 |
C |
C |
1469 |
REAL ptenh(klon,klev), pqenh(klon,klev) |
REAL ptenh(klon,klev), pqenh(klon,klev) |
1470 |
REAL pgeoh(klon,klev), paph(klon,klev+1) |
REAL pgeoh(klon,klev), paph(klon,klev+1) |
1636 |
RETURN |
RETURN |
1637 |
END |
END |
1638 |
SUBROUTINE flxsetup |
SUBROUTINE flxsetup |
1639 |
|
use yoecumf |
1640 |
IMPLICIT none |
IMPLICIT none |
1641 |
C |
C |
1642 |
C THIS ROUTINE DEFINES DISPOSABLE PARAMETERS FOR MASSFLUX SCHEME |
C THIS ROUTINE DEFINES DISPOSABLE PARAMETERS FOR MASSFLUX SCHEME |
1643 |
C |
C |
|
include "YOECUMF.h" |
|
1644 |
C |
C |
1645 |
ENTRPEN=1.0E-4 ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION |
ENTRPEN=1.0E-4 ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION |
1646 |
ENTRSCV=3.0E-4 ! ENTRAINMENT RATE FOR SHALLOW CONVECTION |
ENTRSCV=3.0E-4 ! ENTRAINMENT RATE FOR SHALLOW CONVECTION |