subroutine cs_conv::cumbas |
( |
integer, intent(in) | ijsdim, |
|
|
integer, intent(in) | kmax, |
|
|
integer, dimension (ijsdim) | kb, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gcym, |
|
|
integer | kbmx, |
|
|
integer, intent(in) | ntr, |
|
|
integer, intent(in) | ntrq, |
|
|
real(kind_phys), dimension (ijsdim) | gchb, |
|
|
real(kind_phys), dimension (ijsdim) | gcwb, |
|
|
real(kind_phys), dimension (ijsdim) | gcub, |
|
|
real(kind_phys), dimension (ijsdim) | gcvb, |
|
|
real(kind_phys), dimension (ijsdim) | gcib, |
|
|
real(kind_phys), dimension (ijsdim,ntrq:ntr) | gctrb, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdh, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdw, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdhs, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdqs, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdqi, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdu, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdv, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gdzm, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gdpm, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | fdqs, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gam, |
|
|
logical | lprnt, |
|
|
integer | ipr, |
|
|
integer | ists, |
|
|
integer | iens, |
|
|
real(kind_phys), dimension(ijsdim,kmax) | gctbl, |
|
|
real(kind_phys), dimension(ijsdim,kmax) | gcqbl, |
|
|
real(kind_phys), dimension (ijsdim, kmax, ntr) | gdq, |
|
|
real(kind_phys), dimension(ijsdim,kmax) | gcwbl, |
|
|
real(kind_phys), dimension(ijsdim,kmax) | gcqlbl, |
|
|
real(kind_phys), dimension(ijsdim,kmax) | gcqibl, |
|
|
real(kind_phys), dimension(ijsdim,kmax,ntrq:ntr) | gctrbl ) |
|
private |