subroutine rascnv::cloud |
( |
integer | k, |
|
|
integer | kp1, |
|
|
integer | kd, |
|
|
integer | ntrc, |
|
|
integer | kblmx, |
|
|
integer | kblmn, |
|
|
real(kind=kind_phys) | fracbl, |
|
|
real(kind=kind_phys) | max_neg_bouy, |
|
|
logical | vsmooth, |
|
|
logical | aw_scal, |
|
|
logical | revap, |
|
|
logical | wrkfun, |
|
|
logical | calkbl, |
|
|
logical | crtfun, |
|
|
real(kind=kind_phys) | dt, |
|
|
integer | kdt, |
|
|
real(kind=kind_phys) | tla, |
|
|
real(kind=kind_phys) | dpd, |
|
|
real(kind=kind_phys), dimension(k,ntrc+4) | alfint, |
|
|
real(kind=kind_phys) | rhfacl, |
|
|
real(kind=kind_phys) | rhfacs, |
|
|
real(kind=kind_phys) | area, |
|
|
real(kind=kind_phys) | ccwf, |
|
|
real(kind=kind_phys) | cd, |
|
|
real(kind=kind_phys), dimension(k,ntrc) | trcfac, |
|
|
real(kind=kind_phys), dimension(k) | alfind, |
|
|
real(kind=kind_phys), dimension(k) | rhc_ls, |
|
|
real(kind=kind_phys), dimension(k) | phil, |
|
|
real(kind=kind_phys), dimension(kp1) | phih, |
|
|
real(kind=kind_phys), dimension(kp1) | prs, |
|
|
real(kind=kind_phys), dimension(k) | prsm, |
|
|
real(kind=kind_phys), dimension(k) | sgcs, |
|
|
real(kind=kind_phys), dimension(k) | toi, |
|
|
real(kind=kind_phys), dimension(k) | qoi, |
|
|
real(kind=kind_phys), dimension(k,ntrc) | roi, |
|
|
real(kind=kind_phys), dimension(k) | qli, |
|
|
real(kind=kind_phys), dimension(k) | qii, |
|
|
integer | kpbl, |
|
|
real(kind=kind_phys) | dsfc, |
|
|
real(kind=kind_phys), dimension(k) | tcu, |
|
|
real(kind=kind_phys), dimension(k) | qcu, |
|
|
real(kind=kind_phys), dimension(k,ntrc) | rcu, |
|
|
real(kind=kind_phys), dimension(k) | pcu, |
|
|
real(kind=kind_phys), dimension(kp1) | flx, |
|
|
real(kind=kind_phys), dimension(kp1) | flxd, |
|
|
real(kind=kind_phys) | cup, |
|
|
real(kind=kind_phys) | wfnc, |
|
|
real(kind=kind_phys), dimension(ntrc) | fscav_, |
|
|
real(kind=kind_phys), dimension(ntrc) | trcmin, |
|
|
integer | ntk, |
|
|
real(kind=kind_phys) | c0, |
|
|
real(kind=kind_phys) | qw0, |
|
|
real(kind=kind_phys) | c0i, |
|
|
real(kind=kind_phys) | qi0, |
|
|
real(kind=kind_phys) | dlq_fac ) |
|
private |