subroutine cu_ntiedtke::cutypen | ( | integer | klon, |
integer | klev, | ||
integer | klevp1, | ||
integer | klevm1, | ||
real(kind=kind_phys), dimension(klon,klev) | pqen, | ||
real(kind=kind_phys), dimension(klon,klev) | ptenh, | ||
real(kind=kind_phys), dimension(klon,klev) | pqenh, | ||
real(kind=kind_phys), dimension(klon,klev) | pqsenh, | ||
real(kind=kind_phys), dimension(klon,klevp1) | pgeoh, | ||
real(kind=kind_phys), dimension(klon,klevp1) | paph, | ||
real(kind=kind_phys), dimension(klon) | hfx, | ||
real(kind=kind_phys), dimension(klon) | qfx, | ||
real(kind=kind_phys), dimension(klon,klev) | pgeo, | ||
real(kind=kind_phys), dimension(klon,klev) | pqsen, | ||
real(kind=kind_phys), dimension(klon,klev) | pap, | ||
real(kind=kind_phys), dimension(klon,klev) | pten, | ||
integer, dimension(klon) | lndj, | ||
real(kind=kind_phys), dimension(klon,klev) | cutu, | ||
real(kind=kind_phys), dimension(klon,klev) | cuqu, | ||
integer, dimension(klon,klev) | culab, | ||
logical, dimension(klon) | ldcum, | ||
integer, dimension(klon) | cubot, | ||
integer, dimension(klon) | cutop, | ||
integer, dimension(klon) | ktype, | ||
real(kind=kind_phys), dimension(klon) | wbase, | ||
real(kind=kind_phys), dimension(klon,klev) | culu, | ||
integer, dimension(klon) | kdpl ) |
Definition at line 1344 of file cu_ntiedtke.F90.