subroutine cu_ntiedtke::cuinin | ( | 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) | pqsen, | ||
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) | pgeo, | ||
real(kind=kind_phys), dimension(klon,klevp1) | paph, | ||
real(kind=kind_phys), dimension(klon,klevp1) | pgeoh, | ||
real(kind=kind_phys), dimension(klon,klev) | ptenh, | ||
real(kind=kind_phys), dimension(klon,klev) | pqenh, | ||
real(kind=kind_phys), dimension(klon,klev) | pqsenh, | ||
integer, dimension(klon) | klwmin, | ||
real(kind=kind_phys), dimension(klon,klev) | ptu, | ||
real(kind=kind_phys), dimension(klon,klev) | pqu, | ||
real(kind=kind_phys), dimension(klon,klev) | ptd, | ||
real(kind=kind_phys), dimension(klon,klev) | pqd, | ||
real(kind=kind_phys), dimension(klon,klev) | puu, | ||
real(kind=kind_phys), dimension(klon,klev) | pvu, | ||
real(kind=kind_phys), dimension(klon,klev) | pud, | ||
real(kind=kind_phys), dimension(klon,klev) | pvd, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfu, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfd, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfus, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfds, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfuq, | ||
real(kind=kind_phys), dimension(klon,klev) | pmfdq, | ||
real(kind=kind_phys), dimension(klon,klev) | pdmfup, | ||
real(kind=kind_phys), dimension(klon,klev) | pdmfdp, | ||
real(kind=kind_phys), dimension(klon,klev) | pdpmel, | ||
real(kind=kind_phys), dimension(klon,klev) | plu, | ||
real(kind=kind_phys), dimension(klon,klev) | plude, | ||
integer, dimension(klon,klev) | klab ) |
Definition at line 1217 of file cu_ntiedtke.F90.