subroutine gfs_suite_interstitial_3::gfs_suite_interstitial_3_run |
( |
logical, dimension(:), intent(in) | otsptflag, |
|
|
integer, intent(in) | im, |
|
|
integer, intent(in) | levs, |
|
|
integer, intent(in) | nn, |
|
|
logical, intent(in) | cscnv, |
|
|
integer, intent(in) | imfshalcnv, |
|
|
integer, intent(in) | imfdeepcnv, |
|
|
integer, intent(in) | imfshalcnv_samf, |
|
|
integer, intent(in) | imfdeepcnv_samf, |
|
|
integer, intent(in) | imfdeepcnv_c3, |
|
|
integer, intent(in) | imfshalcnv_c3, |
|
|
logical, intent(in) | progsigma, |
|
|
logical, intent(in) | progomega, |
|
|
logical, intent(in) | first_time_step, |
|
|
logical, intent(in) | restart, |
|
|
logical, intent(in) | satmedmf, |
|
|
logical, intent(in) | trans_trac, |
|
|
logical, intent(in) | do_shoc, |
|
|
logical, intent(in) | ltaerosol, |
|
|
integer, intent(in) | ntrac, |
|
|
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, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | xlon, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | xlat, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | gt0, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) | gq0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | sigmain, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | sigmaout, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | qmicro, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | omegain, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | omegaout, |
|
|
integer, intent(in) | imp_physics, |
|
|
integer, intent(in) | imp_physics_mg, |
|
|
integer, intent(in) | imp_physics_zhao_carr, |
|
|
integer, intent(in) | imp_physics_zhao_carr_pdf, |
|
|
integer, intent(in) | imp_physics_gfdl, |
|
|
integer, intent(in) | imp_physics_thompson, |
|
|
integer, dimension(:,:), intent(in) | dtidx, |
|
|
integer, intent(in) | ntlnc, |
|
|
integer, intent(in) | imp_physics_wsm6, |
|
|
integer, intent(in) | imp_physics_fer_hires, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | prsi, |
|
|
integer, intent(in) | ntinc, |
|
|
integer, intent(in) | imp_physics_nssl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | prsl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | prslk, |
|
|
real(kind=kind_phys), intent(in) | rhcbot, |
|
|
real(kind=kind_phys), intent(in) | rhcpbl, |
|
|
real(kind=kind_phys), intent(in) | rhctop, |
|
|
real(kind=kind_phys), intent(in) | rhcmax, |
|
|
integer, dimension(:), intent(in) | islmsk, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | work1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | work2, |
|
|
integer, dimension(:), intent(in) | kpbl, |
|
|
integer, dimension(:), intent(in) | kinver, |
|
|
logical, intent(in) | ras, |
|
|
integer, intent(in) | me, |
|
|
real, dimension(:,:), intent(out) | save_lnc, |
|
|
real, dimension(:,:), intent(out) | save_inc, |
|
|
logical, intent(in) | ldiag3d, |
|
|
logical, intent(in) | qdiag3d, |
|
|
integer, intent(in) | index_of_process_conv_trans, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout) | clw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | rhc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | save_qc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | save_qi, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | save_tcp, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |