subroutine cs_conv::cumbas |
( |
integer, intent(in) |
IJSDIM, |
|
|
integer, intent(in) |
KMAX, |
|
|
integer, dimension (ijsdim) |
KB, |
|
|
real(r8), dimension (ijsdim, kmax) |
GCYM, |
|
|
integer |
KBMX, |
|
|
integer, intent(in) |
ntr, |
|
|
integer, intent(in) |
ntrq, |
|
|
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) |
GDH, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDW, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDHS, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDQS, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDQI, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDU, |
|
|
real(r8), dimension (ijsdim, kmax) |
GDV, |
|
|
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, |
|
|
logical |
lprnt, |
|
|
integer |
ipr, |
|
|
integer |
ISTS, |
|
|
integer |
IENS, |
|
|
real(r8), dimension(ijsdim,kmax) |
gctbl, |
|
|
real(r8), dimension(ijsdim,kmax) |
gcqbl, |
|
|
real(r8), dimension (ijsdim, kmax, ntr) |
gdq, |
|
|
real(r8), dimension(ijsdim,kmax) |
gcwbl, |
|
|
real(r8), dimension(ijsdim,kmax) |
gcqlbl, |
|
|
real(r8), dimension(ijsdim,kmax) |
gcqibl, |
|
|
real(r8), dimension(ijsdim,kmax,ntrq:ntr) |
gctrbl |
|
) |
| |
|
private |