subroutine gfs_dcnv_generic_pre::gfs_dcnv_generic_pre_run |
( |
integer, intent(in) | im, |
|
|
integer, intent(in) | levs, |
|
|
logical, intent(in) | ldiag3d, |
|
|
logical, intent(in) | qdiag3d, |
|
|
logical, intent(in) | do_cnvgwd, |
|
|
logical, intent(in) | cplchm, |
|
|
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(inout) | gq0, |
|
|
integer, intent(in) | nsamftrac, |
|
|
integer, intent(in) | ntqv, |
|
|
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, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) | clw, |
|
|
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) | nthl, |
|
|
integer, intent(in) | nthnc, |
|
|
integer, intent(in) | nthv, |
|
|
integer, intent(in) | ntgv, |
|
|
integer, intent(in) | ntrz, |
|
|
integer, intent(in) | ntgz, |
|
|
integer, intent(in) | nthz, |
|
|
integer, intent(in) | ntsigma, |
|
|
integer, intent(in) | ntomega, |
|
|
logical, intent(in) | cscnv, |
|
|
logical, intent(in) | satmedmf, |
|
|
logical, intent(in) | trans_trac, |
|
|
logical, intent(in) | ras, |
|
|
integer, intent(in) | ntrac, |
|
|
integer, dimension(:,:), intent(in) | dtidx, |
|
|
integer, intent(in) | index_of_process_dcnv, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |