subroutine cs_conv::cumupr |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
IJSDIM, |
|
|
integer, intent(in) |
KMAX, |
|
|
integer, intent(in) |
NTR, |
|
|
real(r8), dimension (ijsdim, kmax, ntr) |
GTR, |
|
|
real(r8), dimension (ijsdim, ntr) |
GPRCC, |
|
|
real(r8), dimension (ijsdim, kmax, ntr) |
GDR, |
|
|
real(r8), dimension (im, nctp) |
CBMFX, |
|
|
real(r8), dimension (ijsdim, kmax, nctp) |
GCYM, |
|
|
real(r8), dimension (ijsdim, nctp) |
GCYT, |
|
|
real(r8), dimension (ijsdim, nctp) |
GCQT, |
|
|
real(r8), dimension (ijsdim, nctp) |
GCLT, |
|
|
real(r8), dimension (ijsdim, nctp) |
GCIT, |
|
|
real(r8), dimension (ijsdim, nctp) |
GTPRT, |
|
|
real(r8), dimension (ijsdim, kmax) |
GTEVP, |
|
|
real(r8), dimension(ijsdim) |
GTPRC0, |
|
|
integer, dimension (ijsdim ) |
KB, |
|
|
integer |
KBMX, |
|
|
integer, dimension (ijsdim, nctp) |
KT, |
|
|
integer, dimension (nctp) |
KTMX, |
|
|
integer |
KTMXT, |
|
|
real(r8), dimension (ijsdim, kmax) |
DELPI, |
|
|
logical, dimension (ntr) |
OTSPT, |
|
|
integer |
ISTS, |
|
|
integer |
IENS, |
|
|
real(r8), dimension(ntr) |
fscav, |
|
|
real(r8), dimension(ntr) |
fswtr, |
|
|
integer, intent(in) |
nctp |
|
) |
| |
|
private |