subroutine gfs_suite_interstitial_2::gfs_suite_interstitial_2_run |
( |
integer, intent(in) | im, |
|
|
integer, intent(in) | levs, |
|
|
logical, intent(in) | lssav, |
|
|
logical, intent(in) | ldiag3d, |
|
|
logical, intent(in) | lsidea, |
|
|
logical, dimension(:), intent(in) | flag_cice, |
|
|
logical, intent(in) | shal_cnv, |
|
|
logical, intent(in) | old_monin, |
|
|
logical, intent(in) | mstrat, |
|
|
logical, intent(in) | do_shoc, |
|
|
logical, intent(in) | frac_grid, |
|
|
integer, intent(in) | imfshalcnv, |
|
|
real(kind=kind_phys), intent(in) | dtf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | xcosz, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | adjsfcdsw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | adjsfcdlw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | pgr, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | ulwsfc_cice, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) | lwhd, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | htrsw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | htrlw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | xmu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ctei_rm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | work1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | work2, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | prsi, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | tgrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | prsl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | qgrs_water_vapor, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | qgrs_cloud_water, |
|
|
real(kind=kind_phys), intent(in) | cp, |
|
|
real(kind=kind_phys), intent(in) | hvap, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | prslk, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | suntim, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | adjsfculw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | adjsfculw_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | adjsfculw_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | adjsfculw_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | dlwsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ulwsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | psmean, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(inout), optional | dtend, |
|
|
integer, dimension(:,:), intent(in) | dtidx, |
|
|
integer, intent(in) | index_of_process_longwave, |
|
|
integer, intent(in) | index_of_process_shortwave, |
|
|
integer, intent(in) | index_of_process_pbl, |
|
|
integer, intent(in) | index_of_process_dcnv, |
|
|
integer, intent(in) | index_of_process_scnv, |
|
|
integer, intent(in) | index_of_process_mp, |
|
|
integer, intent(in) | index_of_temperature, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ctei_rml, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ctei_r, |
|
|
integer, dimension(:), intent(inout) | kinver, |
|
|
logical, dimension(:), intent(in) | dry, |
|
|
logical, dimension(:), intent(in) | icy, |
|
|
logical, dimension(:), intent(in) | wet, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | frland, |
|
|
real(kind=kind_phys), intent(in) | huge, |
|
|
logical, intent(in) | use_lw_jacobian, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in), optional | htrlwu, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |