subroutine gfs_scnv_generic_pre::gfs_scnv_generic_pre_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
logical, intent(in) |
ldiag3d, |
|
|
logical, intent(in) |
qdiag3d, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
gu0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
gv0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
gt0, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) |
gq0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
save_u, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
save_v, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
save_t, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout) |
save_q, |
|
|
integer, intent(in) |
ntqv, |
|
|
integer, intent(in) |
nsamftrac, |
|
|
logical, intent(in) |
flag_for_scnv_generic_tend, |
|
|
integer, dimension(:,:), intent(in) |
dtidx, |
|
|
integer, intent(in) |
index_of_process_scnv, |
|
|
integer, intent(in) |
ntcw, |
|
|
integer, intent(in) |
ntiw, |
|
|
integer, intent(in) |
ntclamt, |
|
|
integer, intent(in) |
ntrw, |
|
|
integer, intent(in) |
ntsw, |
|
|
integer, intent(in) |
ntrnc, |
|
|
integer, intent(in) |
ntsnc, |
|
|
integer, intent(in) |
ntgl, |
|
|
integer, intent(in) |
ntgnc, |
|
|
integer, intent(in) |
ntsigma, |
|
|
logical, intent(in) |
cscnv, |
|
|
logical, intent(in) |
satmedmf, |
|
|
logical, intent(in) |
trans_trac, |
|
|
logical, intent(in) |
ras, |
|
|
integer, intent(in) |
ntrac, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) |
clw, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |