subroutine cs_conv::cumup |
( |
integer, intent(in) |
IJSDIM, |
|
|
integer, intent(in) |
KMAX, |
|
|
integer, intent(in) |
NTR, |
|
|
integer, intent(in) |
ntrq, |
|
|
real(r8), dimension (ijsdim) |
ACWF, |
|
|
real(r8), dimension (ijsdim, kmax) |
GCLZ, |
|
|
real(r8), dimension (ijsdim, kmax) |
GCIZ, |
|
|
real(r8), dimension(ijsdim, kmax) |
GPRCIZ, |
|
|
real(r8), dimension(ijsdim, kmax) |
GSNWIZ, |
|
|
real(r8), dimension (ijsdim) |
GCYT, |
|
|
real(r8), dimension (ijsdim) |
GCHT, |
|
|
real(r8), dimension (ijsdim) |
GCQT, |
|
|
real(r8), dimension (ijsdim) |
GCLT, |
|
|
real(r8), dimension (ijsdim) |
GCIT, |
|
|
real(r8), dimension (ijsdim) |
GTPRT, |
|
|
real(r8), dimension (ijsdim) |
GCUT, |
|
|
real(r8), dimension (ijsdim) |
GCVT, |
|
|
real(r8), dimension (ijsdim, ntrq:ntr) |
gctrt, |
|
|
integer, dimension (ijsdim) |
KT, |
|
|
integer |
KTMX, |
|
|
real(r8), dimension (ijsdim, kmax) |
GCYM, |
|
|
real(r8), dimension (ijsdim, kmax) |
wcv, |
|
|
real(r8), dimension (ijsdim) |
GCHB, |
|
|
real(r8), dimension (ijsdim) |
GCWB, |
|
|
real(r8), dimension (ijsdim) |
GCUB, |
|
|
real(r8), dimension (ijsdim) |
GCVB, |
|
|
real(r8), dimension (ijsdim) |
GCIB, |
|
|
real(r8), dimension (ijsdim,ntrq:ntr) |
gctrb, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDU, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDV, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDH, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDW, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDHS, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDQS, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDT, |
|
|
real(r8), dimension (ijsdim, kmax+1) |
GDTM, |
|
|
real(r8), dimension (ijsdim, kmax, ntr) |
GDQ, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDQI, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDZ, |
|
|
real(r8), dimension (ijsdim, kmax+1) |
GDZM, |
|
|
real(r8), dimension (ijsdim, kmax+1) |
GDPM, |
|
|
real(r8), dimension (ijsdim, kmax) |
FDQS, |
|
|
real(r8), dimension (ijsdim, kmax) |
GAM, |
|
|
real(r8), dimension (ijsdim) |
GDZTR, |
|
|
real(r8) |
CPRES, |
|
|
real(r8), dimension(ijsdim) |
WCB |
|
) |
| |
|
private |