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

References clmdpa, clmp, fact1, fact2, fprec(), funcphys::fpvs(), frice(), half, itl, one, oneocp, pa, preczh, unset_r8, and zero.

Referenced by cs_cumlus().

Here is the call graph for this function: