The Intermediate Complexity Atmospheric Research model (ICAR)
A computationally efficient atmospheric model for downscaling.
|
Tiedtke cumulus scheme from WRF. More...
Public Member Functions | |
subroutine | cu_tiedtke (DT, ITIMESTEP, STEPCU, RAINCV, PRATEC, QFX, HFX, ZNU, U3D, V3D, W, T3D, QV3D, QC3D, QI3D, PI3D, RHO3D, QVFTEN, QVPBLTEN, DZ8W, PCPS, P8W, XLAND, CU_ACT_FLAG, ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts, kte, RTHCUTEN, RQVCUTEN, RQCCUTEN, RQICUTEN, RUCUTEN, RVCUTEN, F_QV, F_QC, F_QR, F_QI, F_QS) |
subroutine | tiedtkeinit (RTHCUTEN, RQVCUTEN, RQCCUTEN, RQICUTEN, RUCUTEN, RVCUTEN, RESTART, P_QC, P_QI, P_FIRST_SCALAR, allowed_to_read, ids, ide, jds, jde, kds, kde, ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts, kte) |
subroutine | tiecnv (pu, pv, pt, pqv, pqc, pqi, pqvf, pqvbl, poz, pomg, pap, paph, evap, hfx, rho, zprecc, lndj, KTYPE, lq, km, km1, sig1, dt) |
subroutine | cumastr_new (KLON, KLEV, KLEVP1, KLEVM1, PTEN, PQEN, PUEN, PVEN, PVERV, PQSEN, PQHFL, ZTMST, PAP, PAPH, PGEO, PTTE, PQTE, PVOM, PVOL, PRSFC, PSSFC, PAPRC, PAPRSM, PAPRS, LDCUM, KTYPE, KCBOT, KCTOP, PTU, PQU, PLU, PLUDE, PMFU, PMFD, PRAIN, PSRAIN, PSEVAP, PSHEAT, PSDISS, PSMELT, PCTE, PHHFL, RHO, sig1, lndj) |
subroutine | cuini (KLON, KLEV, KLEVP1, KLEVM1, PTEN, PQEN, PQSEN, PUEN, PVEN, PVERV, PGEO, PAPH, PGEOH, PTENH, PQENH, PQSENH, KLWMIN, PTU, PQU, PTD, PQD, PUU, PVU, PUD, PVD, PMFU, PMFD, PMFUS, PMFDS, PMFUQ, PMFDQ, PDMFUP, PDMFDP, PDPMEL, PLU, PLUDE, KLAB) |
subroutine | cubase (KLON, KLEV, KLEVP1, KLEVM1, PTENH, PQENH, PGEOH, PAPH, PTU, PQU, PLU, PUEN, PVEN, PUU, PVU, LDCUM, KCBOT, KLAB) |
subroutine | cutype (KLON, KLEV, KLEVP1, KLEVM1, PTENH, PQENH, PQSENH, PGEOH, PAPH, RHO, HFX, QFX, KTYPE, lndj) |
subroutine | cuasc_new (KLON, KLEV, KLEVP1, KLEVM1, PTENH, PQENH, PUEN, PVEN, PTEN, PQEN, PQSEN, PGEO, PGEOH, PAP, PAPH, PQTE, PVERV, KLWMIN, LDCUM, PHCBASE, KTYPE, KLAB, PTU, PQU, PLU, PUU, PVU, PMFU, PMFUB, PENTR, PMFUS, PMFUQ, PMFUL, PLUDE, PDMFUP, KCBOT, KCTOP, KCTOP0, KCUM, ZTMST, KHMIN, PHHATT, PQSENH) |
subroutine | cudlfs (KLON, KLEV, KLEVP1, PTENH, PQENH, PUEN, PVEN, PGEOH, PAPH, PTU, PQU, PUU, PVU, LDCUM, KCBOT, KCTOP, PMFUB, PRFL, PTD, PQD, PUD, PVD, PMFD, PMFDS, PMFDQ, PDMFDP, KDTOP, LDDRAF) |
subroutine | cuddraf (KLON, KLEV, KLEVP1, PTENH, PQENH, PUEN, PVEN, PGEOH, PAPH, PRFL, LDDRAF, PTD, PQD, PUD, PVD, PMFD, PMFDS, PMFDQ, PDMFDP) |
subroutine | cuflx (KLON, KLEV, KLEVP1, PQEN, PQSEN, PTENH, PQENH, PAPH, PGEOH, KCBOT, KCTOP, KDTOP, KTYPE, LDDRAF, LDCUM, PMFU, PMFD, PMFUS, PMFDS, PMFUQ, PMFDQ, PMFUL, PLUDE, PDMFUP, PDMFDP, PRFL, PRAIN, PTEN, PSFL, PDPMEL, KTOPM2, ZTMST, sig1) |
subroutine | cudtdq (KLON, KLEV, KLEVP1, KTOPM2, PAPH, LDCUM, PTEN, PTTE, PQTE, PMFUS, PMFDS, PMFUQ, PMFDQ, PMFUL, PDMFUP, PDMFDP, ZTMST, PDPMEL, PRAIN, PRFL, PSFL, PSRAIN, PSEVAP, PSHEAT, PSMELT, PRSFC, PSSFC, PAPRC, PAPRSM, PAPRS, PQEN, PQSEN, PLUDE, PCTE) |
subroutine | cududv (KLON, KLEV, KLEVP1, KTOPM2, KTYPE, KCBOT, PAPH, LDCUM, PUEN, PVEN, PVOM, PVOL, PUU, PUD, PVU, PVD, PMFU, PMFD, PSDISS) |
subroutine | cubasmc (KLON, KLEV, KLEVM1, KK, PTEN, PQEN, PQSEN, PUEN, PVEN, PVERV, PGEO, PGEOH, LDCUM, KTYPE, KLAB, PMFU, PMFUB, PENTR, KCBOT, PTU, PQU, PLU, PUU, PVU, PMFUS, PMFUQ, PMFUL, PDMFUP, PMFUU, PMFUV) |
subroutine | cuadjtq (KLON, KLEV, KK, PP, PT, PQ, LDFLAG, KCALL) |
subroutine | cuentr_new (KLON, KLEV, KLEVP1, KK, PTENH, PAPH, PAP, PGEOH, KLWMIN, LDCUM, KTYPE, KCBOT, KCTOP0, ZPBASE, PMFU, PENTR, ZDMFEN, ZDMFDE, ZODETR, KHMIN) |
real function | ssum (N, X, IX) |
real function | tlucua (TT) |
real function | tlucub (TT) |
real function | tlucuc (TT) |
Public Attributes | |
real, parameter | epsl = 1.0e-20 |
real, parameter | t000 = 273.15 |
real, parameter | hgfr = 233.15 |
real | api |
real | a |
real | rd |
real | rv |
real | cpd |
real | rcpd |
real | vtmpc1 |
real | vtmpc2 |
real | rhoh2o |
real | alv |
real | als |
real | alf |
real | tmelt |
real | c1es |
real | c2es |
real | c3les |
real | c3ies |
real | c4les |
real | c4ies |
real | c5les |
real | c5ies |
real | zrg |
real | entrpen |
real | entrscv |
real | entrmid |
real | entrdd |
real | cmfctop |
real | rhm |
real | rhc |
real | cmfcmax |
real | cmfcmin |
real | cmfdeps |
real | cprcon |
real | crirh |
real | zbuo0 |
real | fdbk |
real | ztau |
integer | orgen |
integer | nturben |
integer | cutrigger |
real | cvdifts |
real | cevapcu1 |
real | cevapcu2 |
real | zdnoprc |
logical | lmfpen |
logical | lmfmid |
logical | lmfscv |
logical | lmfdd |
logical | lmfdudv |
Private Attributes | |
real, private | g |
real, private | cpv |
Tiedtke cumulus scheme from WRF.
subroutine module_cu_tiedtke::cu_tiedtke | ( | real, intent(in) | DT, |
integer, intent(in) | ITIMESTEP, | ||
integer, intent(in) | STEPCU, | ||
real, dimension(ims:ime, jms:jme), intent(inout) | RAINCV, | ||
real, dimension(ims:ime, jms:jme), intent(inout) | PRATEC, | ||
real, dimension(ims:ime, jms:jme) | QFX, | ||
real, dimension(ims:ime, jms:jme) | HFX, | ||
real, dimension( kms:kme ) | ZNU, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | U3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | V3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | W, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | T3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | QV3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | QC3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | QI3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | PI3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | RHO3D, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | QVFTEN, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | QVPBLTEN, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | DZ8W, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | PCPS, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(in) | P8W, | ||
real, dimension(ims:ime, jms:jme), intent(in) | XLAND, | ||
logical, dimension(ims:ime,jms:jme), intent(inout) | CU_ACT_FLAG, | ||
integer, intent(in) | ids, | ||
integer, intent(in) | ide, | ||
integer, intent(in) | jds, | ||
integer, intent(in) | jde, | ||
integer, intent(in) | kds, | ||
integer, intent(in) | kde, | ||
integer, intent(in) | ims, | ||
integer, intent(in) | ime, | ||
integer, intent(in) | jms, | ||
integer, intent(in) | jme, | ||
integer, intent(in) | kms, | ||
integer, intent(in) | kme, | ||
integer, intent(in) | its, | ||
integer, intent(in) | ite, | ||
integer, intent(in) | jts, | ||
integer, intent(in) | jte, | ||
integer, intent(in) | kts, | ||
integer, intent(in) | kte, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(inout), optional | RTHCUTEN, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(inout), optional | RQVCUTEN, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(inout), optional | RQCCUTEN, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(inout), optional | RQICUTEN, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(inout), optional | RUCUTEN, | ||
real, dimension(ims:ime, kms:kme, jms:jme), intent(inout), optional | RVCUTEN, | ||
logical, optional | F_QV, | ||
logical, optional | F_QC, | ||
logical, optional | F_QR, | ||
logical, optional | F_QI, | ||
logical, optional | F_QS | ||
) |
subroutine module_cu_tiedtke::cuadjtq | ( | integer | KLON, |
integer | KLEV, | ||
integer | KK, | ||
real, dimension(klon) | PP, | ||
real, dimension(klon,klev) | PT, | ||
real, dimension(klon,klev) | PQ, | ||
logical, dimension(klon) | LDFLAG, | ||
integer | KCALL | ||
) |
subroutine module_cu_tiedtke::cuasc_new | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KLEVM1, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klev) | PQENH, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PTEN, | ||
real, dimension(klon,klev) | PQEN, | ||
real, dimension(klon,klev) | PQSEN, | ||
real, dimension(klon,klev) | PGEO, | ||
real, dimension(klon,klev) | PGEOH, | ||
real, dimension(klon,klev) | PAP, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon,klev) | PQTE, | ||
real, dimension(klon,klev) | PVERV, | ||
integer, dimension(klon) | KLWMIN, | ||
logical, dimension(klon) | LDCUM, | ||
real, dimension(klon) | PHCBASE, | ||
integer, dimension(klon) | KTYPE, | ||
integer, dimension(klon,klev) | KLAB, | ||
real, dimension(klon,klev) | PTU, | ||
real, dimension(klon,klev) | PQU, | ||
real, dimension(klon,klev) | PLU, | ||
real, dimension(klon,klev) | PUU, | ||
real, dimension(klon,klev) | PVU, | ||
real, dimension(klon,klev) | PMFU, | ||
real, dimension(klon) | PMFUB, | ||
real, dimension(klon) | PENTR, | ||
real, dimension(klon,klev) | PMFUS, | ||
real, dimension(klon,klev) | PMFUQ, | ||
real, dimension(klon,klev) | PMFUL, | ||
real, dimension(klon,klev) | PLUDE, | ||
real, dimension(klon,klev) | PDMFUP, | ||
integer, dimension(klon) | KCBOT, | ||
integer, dimension(klon) | KCTOP, | ||
integer, dimension(klon) | KCTOP0, | ||
integer | KCUM, | ||
real | ZTMST, | ||
integer, dimension(klon) | KHMIN, | ||
real, dimension(klon,klev) | PHHATT, | ||
real, dimension(klon,klev) | PQSENH | ||
) |
subroutine module_cu_tiedtke::cubase | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KLEVM1, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klev) | PQENH, | ||
real, dimension(klon,klev) | PGEOH, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon,klev) | PTU, | ||
real, dimension(klon,klev) | PQU, | ||
real, dimension(klon,klev) | PLU, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PUU, | ||
real, dimension(klon,klev) | PVU, | ||
logical, dimension(klon) | LDCUM, | ||
integer, dimension(klon) | KCBOT, | ||
integer, dimension(klon,klev) | KLAB | ||
) |
subroutine module_cu_tiedtke::cubasmc | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVM1, | ||
integer | KK, | ||
real, dimension(klon,klev) | PTEN, | ||
real, dimension(klon,klev) | PQEN, | ||
real, dimension(klon,klev) | PQSEN, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PVERV, | ||
real, dimension(klon,klev) | PGEO, | ||
real, dimension(klon,klev) | PGEOH, | ||
logical, dimension(klon) | LDCUM, | ||
integer, dimension(klon) | KTYPE, | ||
integer, dimension(klon,klev) | KLAB, | ||
real, dimension(klon,klev) | PMFU, | ||
real, dimension(klon) | PMFUB, | ||
real, dimension(klon) | PENTR, | ||
integer, dimension(klon) | KCBOT, | ||
real, dimension(klon,klev) | PTU, | ||
real, dimension(klon,klev) | PQU, | ||
real, dimension(klon,klev) | PLU, | ||
real, dimension(klon,klev) | PUU, | ||
real, dimension(klon,klev) | PVU, | ||
real, dimension(klon,klev) | PMFUS, | ||
real, dimension(klon,klev) | PMFUQ, | ||
real, dimension(klon,klev) | PMFUL, | ||
real, dimension(klon,klev) | PDMFUP, | ||
real, dimension(klon) | PMFUU, | ||
real, dimension(klon) | PMFUV | ||
) |
subroutine module_cu_tiedtke::cuddraf | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klev) | PQENH, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PGEOH, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon) | PRFL, | ||
logical, dimension(klon) | LDDRAF, | ||
real, dimension(klon,klev) | PTD, | ||
real, dimension(klon,klev) | PQD, | ||
real, dimension(klon,klev) | PUD, | ||
real, dimension(klon,klev) | PVD, | ||
real, dimension(klon,klev) | PMFD, | ||
real, dimension(klon,klev) | PMFDS, | ||
real, dimension(klon,klev) | PMFDQ, | ||
real, dimension(klon,klev) | PDMFDP | ||
) |
subroutine module_cu_tiedtke::cudlfs | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klev) | PQENH, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PGEOH, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon,klev) | PTU, | ||
real, dimension(klon,klev) | PQU, | ||
real, dimension(klon,klev) | PUU, | ||
real, dimension(klon,klev) | PVU, | ||
logical, dimension(klon) | LDCUM, | ||
integer, dimension(klon) | KCBOT, | ||
integer, dimension(klon) | KCTOP, | ||
real, dimension(klon) | PMFUB, | ||
real, dimension(klon) | PRFL, | ||
real, dimension(klon,klev) | PTD, | ||
real, dimension(klon,klev) | PQD, | ||
real, dimension(klon,klev) | PUD, | ||
real, dimension(klon,klev) | PVD, | ||
real, dimension(klon,klev) | PMFD, | ||
real, dimension(klon,klev) | PMFDS, | ||
real, dimension(klon,klev) | PMFDQ, | ||
real, dimension(klon,klev) | PDMFDP, | ||
integer, dimension(klon) | KDTOP, | ||
logical, dimension(klon) | LDDRAF | ||
) |
subroutine module_cu_tiedtke::cudtdq | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KTOPM2, | ||
real, dimension(klon,klevp1) | PAPH, | ||
logical, dimension(klon) | LDCUM, | ||
real, dimension(klon,klev) | PTEN, | ||
real, dimension(klon,klev) | PTTE, | ||
real, dimension(klon,klev) | PQTE, | ||
real, dimension(klon,klev) | PMFUS, | ||
real, dimension(klon,klev) | PMFDS, | ||
real, dimension(klon,klev) | PMFUQ, | ||
real, dimension(klon,klev) | PMFDQ, | ||
real, dimension(klon,klev) | PMFUL, | ||
real, dimension(klon,klev) | PDMFUP, | ||
real, dimension(klon,klev) | PDMFDP, | ||
real | ZTMST, | ||
real, dimension(klon,klev) | PDPMEL, | ||
real, dimension(klon) | PRAIN, | ||
real, dimension(klon) | PRFL, | ||
real, dimension(klon) | PSFL, | ||
real | PSRAIN, | ||
real | PSEVAP, | ||
real | PSHEAT, | ||
real | PSMELT, | ||
real, dimension(klon) | PRSFC, | ||
real, dimension(klon) | PSSFC, | ||
real, dimension(klon) | PAPRC, | ||
real, dimension(klon) | PAPRSM, | ||
real, dimension(klon) | PAPRS, | ||
real, dimension(klon,klev) | PQEN, | ||
real, dimension(klon,klev) | PQSEN, | ||
real, dimension(klon,klev) | PLUDE, | ||
real, dimension(klon,klev) | PCTE | ||
) |
subroutine module_cu_tiedtke::cududv | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KTOPM2, | ||
integer, dimension(klon) | KTYPE, | ||
integer, dimension(klon) | KCBOT, | ||
real, dimension(klon,klevp1) | PAPH, | ||
logical, dimension(klon) | LDCUM, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PVOM, | ||
real, dimension(klon,klev) | PVOL, | ||
real, dimension(klon,klev) | PUU, | ||
real, dimension(klon,klev) | PUD, | ||
real, dimension(klon,klev) | PVU, | ||
real, dimension(klon,klev) | PVD, | ||
real, dimension(klon,klev) | PMFU, | ||
real, dimension(klon,klev) | PMFD, | ||
real | PSDISS | ||
) |
subroutine module_cu_tiedtke::cuentr_new | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KK, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon,klev) | PAP, | ||
real, dimension(klon,klev) | PGEOH, | ||
integer, dimension(klon) | KLWMIN, | ||
logical, dimension(klon) | LDCUM, | ||
integer, dimension(klon) | KTYPE, | ||
integer, dimension(klon) | KCBOT, | ||
integer, dimension(klon) | KCTOP0, | ||
real, dimension(klon) | ZPBASE, | ||
real, dimension(klon,klev) | PMFU, | ||
real, dimension(klon) | PENTR, | ||
real, dimension(klon) | ZDMFEN, | ||
real, dimension(klon) | ZDMFDE, | ||
real, dimension(klon,klev) | ZODETR, | ||
integer, dimension(klon) | KHMIN | ||
) |
subroutine module_cu_tiedtke::cuflx | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
real, dimension(klon,klev) | PQEN, | ||
real, dimension(klon,klev) | PQSEN, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klev) | PQENH, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon,klev) | PGEOH, | ||
integer, dimension(klon) | KCBOT, | ||
integer, dimension(klon) | KCTOP, | ||
integer, dimension(klon) | KDTOP, | ||
integer, dimension(klon) | KTYPE, | ||
logical, dimension(klon) | LDDRAF, | ||
logical, dimension(klon) | LDCUM, | ||
real, dimension(klon,klev) | PMFU, | ||
real, dimension(klon,klev) | PMFD, | ||
real, dimension(klon,klev) | PMFUS, | ||
real, dimension(klon,klev) | PMFDS, | ||
real, dimension(klon,klev) | PMFUQ, | ||
real, dimension(klon,klev) | PMFDQ, | ||
real, dimension(klon,klev) | PMFUL, | ||
real, dimension(klon,klev) | PLUDE, | ||
real, dimension(klon,klev) | PDMFUP, | ||
real, dimension(klon,klev) | PDMFDP, | ||
real, dimension(klon) | PRFL, | ||
real, dimension(klon) | PRAIN, | ||
real, dimension(klon,klev) | PTEN, | ||
real, dimension(klon) | PSFL, | ||
real, dimension(klon,klev) | PDPMEL, | ||
integer | KTOPM2, | ||
real | ZTMST, | ||
real, dimension(klev) | sig1 | ||
) |
subroutine module_cu_tiedtke::cuini | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KLEVM1, | ||
real, dimension(klon,klev) | PTEN, | ||
real, dimension(klon,klev) | PQEN, | ||
real, dimension(klon,klev) | PQSEN, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PVERV, | ||
real, dimension(klon,klev) | PGEO, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon,klev) | PGEOH, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klev) | PQENH, | ||
real, dimension(klon,klev) | PQSENH, | ||
integer, dimension(klon) | KLWMIN, | ||
real, dimension(klon,klev) | PTU, | ||
real, dimension(klon,klev) | PQU, | ||
real, dimension(klon,klev) | PTD, | ||
real, dimension(klon,klev) | PQD, | ||
real, dimension(klon,klev) | PUU, | ||
real, dimension(klon,klev) | PVU, | ||
real, dimension(klon,klev) | PUD, | ||
real, dimension(klon,klev) | PVD, | ||
real, dimension(klon,klev) | PMFU, | ||
real, dimension(klon,klev) | PMFD, | ||
real, dimension(klon,klev) | PMFUS, | ||
real, dimension(klon,klev) | PMFDS, | ||
real, dimension(klon,klev) | PMFUQ, | ||
real, dimension(klon,klev) | PMFDQ, | ||
real, dimension(klon,klev) | PDMFUP, | ||
real, dimension(klon,klev) | PDMFDP, | ||
real, dimension(klon,klev) | PDPMEL, | ||
real, dimension(klon,klev) | PLU, | ||
real, dimension(klon,klev) | PLUDE, | ||
integer, dimension(klon,klev) | KLAB | ||
) |
subroutine module_cu_tiedtke::cumastr_new | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KLEVM1, | ||
real, dimension(klon,klev) | PTEN, | ||
real, dimension(klon,klev) | PQEN, | ||
real, dimension(klon,klev) | PUEN, | ||
real, dimension(klon,klev) | PVEN, | ||
real, dimension(klon,klev) | PVERV, | ||
real, dimension(klon,klev) | PQSEN, | ||
real, dimension(klon) | PQHFL, | ||
real | ZTMST, | ||
real, dimension(klon,klev) | PAP, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon,klev) | PGEO, | ||
real, dimension(klon,klev) | PTTE, | ||
real, dimension(klon,klev) | PQTE, | ||
real, dimension(klon,klev) | PVOM, | ||
real, dimension(klon,klev) | PVOL, | ||
real, dimension(klon) | PRSFC, | ||
real, dimension(klon) | PSSFC, | ||
real, dimension(klon) | PAPRC, | ||
real, dimension(klon) | PAPRSM, | ||
real, dimension(klon) | PAPRS, | ||
logical, dimension(klon) | LDCUM, | ||
integer, dimension(klon) | KTYPE, | ||
integer, dimension(klon) | KCBOT, | ||
integer, dimension(klon) | KCTOP, | ||
real, dimension(klon,klev) | PTU, | ||
real, dimension(klon,klev) | PQU, | ||
real, dimension(klon,klev) | PLU, | ||
real, dimension(klon,klev) | PLUDE, | ||
real, dimension(klon,klev) | PMFU, | ||
real, dimension(klon,klev) | PMFD, | ||
real, dimension(klon) | PRAIN, | ||
real | PSRAIN, | ||
real | PSEVAP, | ||
real | PSHEAT, | ||
real | PSDISS, | ||
real | PSMELT, | ||
real, dimension(klon,klev) | PCTE, | ||
real, dimension(klon) | PHHFL, | ||
real, dimension(klon) | RHO, | ||
real, dimension(klev) | sig1, | ||
integer, dimension(klon) | lndj | ||
) |
subroutine module_cu_tiedtke::cutype | ( | integer | KLON, |
integer | KLEV, | ||
integer | KLEVP1, | ||
integer | KLEVM1, | ||
real, dimension(klon,klev) | PTENH, | ||
real, dimension(klon,klev) | PQENH, | ||
real, dimension(klon,klev) | PQSENH, | ||
real, dimension(klon,klev) | PGEOH, | ||
real, dimension(klon,klevp1) | PAPH, | ||
real, dimension(klon) | RHO, | ||
real, dimension(klon) | HFX, | ||
real, dimension(klon) | QFX, | ||
integer, dimension(klon) | KTYPE, | ||
integer, dimension(klon) | lndj | ||
) |
real function module_cu_tiedtke::ssum | ( | integer | N, |
real, dimension(*) | X, | ||
integer | IX | ||
) |
subroutine module_cu_tiedtke::tiecnv | ( | real, dimension(lq,km) | pu, |
real, dimension(lq,km) | pv, | ||
real, dimension(lq,km) | pt, | ||
real, dimension(lq,km) | pqv, | ||
real, dimension(lq,km) | pqc, | ||
real, dimension(lq,km) | pqi, | ||
real, dimension(lq,km) | pqvf, | ||
real, dimension(lq,km) | pqvbl, | ||
real, dimension(lq,km) | poz, | ||
real, dimension(lq,km) | pomg, | ||
real, dimension(lq,km) | pap, | ||
real, dimension(lq,km1) | paph, | ||
real, dimension(lq) | evap, | ||
real, dimension(lq) | hfx, | ||
real, dimension(lq) | rho, | ||
real, dimension(lq) | zprecc, | ||
integer, dimension(lq) | lndj, | ||
integer, dimension(lq) | KTYPE, | ||
integer | lq, | ||
integer | km, | ||
integer | km1, | ||
real, dimension(km) | sig1, | ||
real | dt | ||
) |
subroutine module_cu_tiedtke::tiedtkeinit | ( | real, dimension( ims:ime , kms:kme , jms:jme ), intent(out) | RTHCUTEN, |
real, dimension( ims:ime , kms:kme , jms:jme ), intent(out) | RQVCUTEN, | ||
real, dimension( ims:ime , kms:kme , jms:jme ), intent(out) | RQCCUTEN, | ||
real, dimension( ims:ime , kms:kme , jms:jme ), intent(out) | RQICUTEN, | ||
real, dimension( ims:ime , kms:kme , jms:jme ), intent(out) | RUCUTEN, | ||
real, dimension( ims:ime , kms:kme , jms:jme ), intent(out) | RVCUTEN, | ||
logical, intent(in) | RESTART, | ||
integer, intent(in) | P_QC, | ||
integer, intent(in) | P_QI, | ||
integer, intent(in) | P_FIRST_SCALAR, | ||
logical, intent(in) | allowed_to_read, | ||
integer, intent(in) | ids, | ||
integer, intent(in) | ide, | ||
integer, intent(in) | jds, | ||
integer, intent(in) | jde, | ||
integer, intent(in) | kds, | ||
integer, intent(in) | kde, | ||
integer, intent(in) | ims, | ||
integer, intent(in) | ime, | ||
integer, intent(in) | jms, | ||
integer, intent(in) | jme, | ||
integer, intent(in) | kms, | ||
integer, intent(in) | kme, | ||
integer, intent(in) | its, | ||
integer, intent(in) | ite, | ||
integer, intent(in) | jts, | ||
integer, intent(in) | jte, | ||
integer, intent(in) | kts, | ||
integer, intent(in) | kte | ||
) |
real function module_cu_tiedtke::tlucua | ( | real | TT | ) |
real function module_cu_tiedtke::tlucub | ( | real | TT | ) |
real function module_cu_tiedtke::tlucuc | ( | real | TT | ) |
real module_cu_tiedtke::a |
real module_cu_tiedtke::alf |
real module_cu_tiedtke::als |
real module_cu_tiedtke::alv |
real module_cu_tiedtke::api |
real module_cu_tiedtke::c1es |
real module_cu_tiedtke::c2es |
real module_cu_tiedtke::c3ies |
real module_cu_tiedtke::c3les |
real module_cu_tiedtke::c4ies |
real module_cu_tiedtke::c4les |
real module_cu_tiedtke::c5ies |
real module_cu_tiedtke::c5les |
real module_cu_tiedtke::cevapcu1 |
real module_cu_tiedtke::cevapcu2 |
real module_cu_tiedtke::cmfcmax |
real module_cu_tiedtke::cmfcmin |
real module_cu_tiedtke::cmfctop |
real module_cu_tiedtke::cmfdeps |
real module_cu_tiedtke::cpd |
real module_cu_tiedtke::cprcon |
|
private |
real module_cu_tiedtke::crirh |
integer module_cu_tiedtke::cutrigger |
real module_cu_tiedtke::cvdifts |
real module_cu_tiedtke::entrdd |
real module_cu_tiedtke::entrmid |
real module_cu_tiedtke::entrpen |
real module_cu_tiedtke::entrscv |
real, parameter module_cu_tiedtke::epsl = 1.0e-20 |
real module_cu_tiedtke::fdbk |
|
private |
real, parameter module_cu_tiedtke::hgfr = 233.15 |
logical module_cu_tiedtke::lmfdd |
logical module_cu_tiedtke::lmfdudv |
logical module_cu_tiedtke::lmfmid |
logical module_cu_tiedtke::lmfpen |
logical module_cu_tiedtke::lmfscv |
integer module_cu_tiedtke::nturben |
integer module_cu_tiedtke::orgen |
real module_cu_tiedtke::rcpd |
real module_cu_tiedtke::rd |
real module_cu_tiedtke::rhc |
real module_cu_tiedtke::rhm |
real module_cu_tiedtke::rhoh2o |
real module_cu_tiedtke::rv |
real, parameter module_cu_tiedtke::t000 = 273.15 |
real module_cu_tiedtke::tmelt |
real module_cu_tiedtke::vtmpc1 |
real module_cu_tiedtke::vtmpc2 |
real module_cu_tiedtke::zbuo0 |
real module_cu_tiedtke::zdnoprc |
real module_cu_tiedtke::zrg |
real module_cu_tiedtke::ztau |