subroutine gfs_mp_generic_pre::gfs_mp_generic_pre_run |
( |
integer, intent(in) | im, |
|
|
integer, intent(in) | levs, |
|
|
logical, intent(in) | ldiag3d, |
|
|
logical, intent(in) | qdiag3d, |
|
|
logical, intent(in) | do_aw, |
|
|
logical, intent(in) | progsigma, |
|
|
integer, intent(in) | ntcw, |
|
|
integer, intent(in) | nncl, |
|
|
integer, intent(in) | ntrac, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | gt0, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) | gq0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | save_t, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout) | save_q, |
|
|
integer, intent(in) | num_dfi_radar, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |