subroutine, public progsigma::progsigma_calc |
( |
integer, intent(in) | im, |
|
|
integer, intent(in) | km, |
|
|
logical, intent(in) | flag_init, |
|
|
logical, intent(in) | flag_restart, |
|
|
logical, intent(in) | flag_shallow, |
|
|
logical, intent(in) | flag_mid, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | del, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | tmf, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | qmicro, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | dbyo1, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | zdqca, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | omega_u, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | zeta, |
|
|
real(kind=kind_phys), intent(in) | hvap, |
|
|
real(kind=kind_phys), intent(in) | delt, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | qadv, |
|
|
integer, dimension(im), intent(in) | kb, |
|
|
integer, dimension(im), intent(in) | kbcon1, |
|
|
integer, dimension(im), intent(in) | ktcon, |
|
|
logical, dimension(im), intent(in) | cnvflg, |
|
|
real(kind=kind_phys), intent(in) | betascu, |
|
|
real(kind=kind_phys), intent(in) | betamcu, |
|
|
real(kind=kind_phys), intent(in) | betadcu, |
|
|
real(kind=kind_phys), intent(in) | sigmind, |
|
|
real(kind=kind_phys), intent(in) | sigminm, |
|
|
real(kind=kind_phys), intent(in) | sigmins, |
|
|
real(kind=kind_phys), dimension(im,km), intent(in) | sigmain, |
|
|
real(kind=kind_phys), dimension(im,km), intent(out) | sigmaout, |
|
|
real(kind=kind_phys), dimension(im), intent(out) | sigmab ) |