subroutine cu_ntiedtke::cumastrn | ( | integer | klon, |
integer | klev, | ||
integer | klevp1, | ||
integer | klevm1, | ||
real(kind=kind_phys), dimension(klon,klev) | pten, | ||
real(kind=kind_phys), dimension(klon,klev) | pqen, | ||
real(kind=kind_phys), dimension(klon,klev) | puen, | ||
real(kind=kind_phys), dimension(klon,klev) | pven, | ||
real(kind=kind_phys), dimension(klon,klev) | pverv, | ||
real(kind=kind_phys), dimension(klon,klev) | pqsen, | ||
real(kind=kind_phys), dimension(klon) | pqhfl, | ||
real(kind=kind_phys) | ztmst, | ||
real(kind=kind_phys), dimension(klon,klev) | pap, | ||
real(kind=kind_phys), dimension(klon,klevp1) | paph, | ||
real(kind=kind_phys), dimension(klon,klev) | pgeo, | ||
real(kind=kind_phys), dimension(klon,klev) | ptte, | ||
real(kind=kind_phys), dimension(klon,klev) | pqte, | ||
real(kind=kind_phys), dimension(klon,klev) | pvom, | ||
real(kind=kind_phys), dimension(klon,klev) | pvol, | ||
real(kind=kind_phys), dimension(klon) | prsfc, | ||
real(kind=kind_phys), dimension(klon) | pssfc, | ||
logical, dimension(klon) | ldcum, | ||
integer | ktrac, | ||
real(kind=kind_phys), dimension(klon,klev,ktrac) | pcen, | ||
real(kind=kind_phys), dimension(klon,klev,ktrac) | ptenc, | ||
integer, dimension(klon) | ktype, | ||
integer, dimension(klon) | kcbot, | ||
integer, dimension(klon) | kctop, | ||
real(kind=kind_phys), dimension(klon,klev) | ptu, | ||
real(kind=kind_phys), dimension(klon,klev) | pqu, | ||
real(kind=kind_phys), dimension(klon,klev) | plu, | ||
real(kind=kind_phys), dimension(klon,klev) | plude, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfu, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfd, | ||
real(kind=kind_phys), dimension(klon) | prain, | ||
real(kind=kind_phys), dimension(klon,klev) | pcte, | ||
real(kind=kind_phys), dimension(klon) | phhfl, | ||
integer, dimension(klon) | lndj, | ||
real(kind=kind_phys), dimension(klon,klevp1) | zgeoh, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfude_rate, | ||
real(kind=kind_phys), dimension(klon) | dx ) |
Definition at line 397 of file cu_ntiedtke.F90.