subroutine cs_conv::cumup |
( |
integer, intent(in) | ijsdim, |
|
|
integer, intent(in) | kmax, |
|
|
integer, intent(in) | ntr, |
|
|
integer, intent(in) | ntrq, |
|
|
real(kind_phys), dimension (ijsdim) | acwf, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gclz, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gciz, |
|
|
real(kind_phys), dimension(ijsdim, kmax+1) | gprciz, |
|
|
real(kind_phys), dimension(ijsdim, kmax+1) | gsnwiz, |
|
|
real(kind_phys), dimension (ijsdim) | gcyt, |
|
|
real(kind_phys), dimension (ijsdim) | gcht, |
|
|
real(kind_phys), dimension (ijsdim) | gcqt, |
|
|
real(kind_phys), dimension (ijsdim) | gclt, |
|
|
real(kind_phys), dimension (ijsdim) | gcit, |
|
|
real(kind_phys), dimension (ijsdim) | gtprt, |
|
|
real(kind_phys), dimension (ijsdim) | gcut, |
|
|
real(kind_phys), dimension (ijsdim) | gcvt, |
|
|
real(kind_phys), dimension (ijsdim, ntrq:ntr) | gctrt, |
|
|
integer, dimension (ijsdim) | kt, |
|
|
integer | ktmx, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gcym, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | wcv, |
|
|
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) | gdu, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdv, |
|
|
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) | gdt, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gdtm, |
|
|
real(kind_phys), dimension (ijsdim, kmax, ntr) | gdq, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdqi, |
|
|
real(kind_phys), dimension (ijsdim, kmax) | gdz, |
|
|
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, |
|
|
real(kind_phys), dimension (ijsdim) | gdztr, |
|
|
real(kind_phys) | cpres, |
|
|
real(kind_phys), dimension(ijsdim) | wcb, |
|
|
integer, dimension (ijsdim) | kb, |
|
|
integer | ctp, |
|
|
integer | ists, |
|
|
integer | iens, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gctm, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gcqm, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gcwm, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gchm, |
|
|
real(kind_phys), dimension (ijsdim) | gcwt, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gclm, |
|
|
real(kind_phys), dimension (ijsdim, kmax+1) | gcim, |
|
|
real(kind_phys), dimension (ijsdim, kmax,ntrq:ntr) | gctrm, |
|
|
logical | lprnt, |
|
|
integer, intent(in) | ipr ) |
|
private |