subroutine cs_conv_pre::cs_conv_pre_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
ntrac, |
|
|
integer, intent(in) |
ncld, |
|
|
real(r8), dimension(im,levs), intent(in) |
q, |
|
|
real(r8), dimension(im,levs), intent(in) |
clw1, |
|
|
real(r8), dimension(im,levs), intent(in) |
clw2, |
|
|
real(r8), dimension(im), intent(in) |
work1, |
|
|
real(r8), dimension(im), intent(in) |
work2, |
|
|
real(r8), intent(in) |
cs_parm1, |
|
|
real(r8), intent(in) |
cs_parm2, |
|
|
real(r8), dimension(im), intent(out) |
wcbmax, |
|
|
real(r8), dimension(ntrac-ncld+2), intent(out) |
fswtr, |
|
|
real(r8), dimension(ntrac-ncld+2), intent(out) |
fscav, |
|
|
real(r8), dimension(im,levs), intent(out) |
save_q1, |
|
|
real(r8), dimension(im,levs), intent(out) |
save_q2, |
|
|
real(r8), dimension(:,:), intent(out) |
save_q3, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |