subroutine cs_conv::cumupr |
( |
integer, intent(in) | im, |
|
|
integer, intent(in) | ijsdim, |
|
|
integer, intent(in) | kmax, |
|
|
integer, intent(in) | ntr, |
|
|
real(kind_phys), dimension (ijsdim, kmax, ntr) | gtr, |
|
|
real(kind_phys), dimension (ijsdim, ntr) | gprcc, |
|
|
real(kind_phys), dimension (ijsdim, kmax, ntr) | gdr, |
|
|
real(kind_phys), dimension (im, nctp) | cbmfx, |
|
|
real(kind_phys), dimension (ijsdim, kmax, nctp) | gcym, |
|
|
real(kind_phys), dimension (ijsdim, nctp) | gcyt, |
|
|
real(kind_phys), dimension (ijsdim, nctp) | gcqt, |
|
|
real(kind_phys), dimension (ijsdim, nctp) | gclt, |
|
|
real(kind_phys), dimension (ijsdim, nctp) | gcit, |
|
|
real(kind_phys), dimension (ijsdim, nctp) | gtprt, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gtevp, |
|
|
real(kind_phys), dimension(ijsdim) | gtprc0, |
|
|
integer, dimension (ijsdim ) | kb, |
|
|
integer | kbmx, |
|
|
integer, dimension (ijsdim, nctp) | kt, |
|
|
integer, dimension (nctp) | ktmx, |
|
|
integer | ktmxt, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | delpi, |
|
|
logical, dimension (ntr) | otspt, |
|
|
integer | ists, |
|
|
integer | iens, |
|
|
real(kind_phys), dimension(ntr) | fscav, |
|
|
real(kind_phys), dimension(ntr) | fswtr, |
|
|
integer, intent(in) | nctp ) |
|
private |