subroutine, public gfs_rad_time_vary::gfs_rad_time_vary_timestep_init |
( |
logical, intent(in) | lrseeds, |
|
|
integer, dimension(:,:), intent(in) | rseeds, |
|
|
logical, intent(in) | lslwr, |
|
|
logical, intent(in) | lsswr, |
|
|
integer, intent(in) | isubc_lw, |
|
|
integer, intent(in) | isubc_sw, |
|
|
integer, dimension(:), intent(inout) | icsdsw, |
|
|
integer, dimension(:), intent(inout) | icsdlw, |
|
|
integer, intent(in) | cnx, |
|
|
integer, intent(in) | cny, |
|
|
integer, intent(in) | isc, |
|
|
integer, intent(in) | jsc, |
|
|
integer, dimension(:), intent(in) | imap, |
|
|
integer, dimension(:), intent(in) | jmap, |
|
|
real(kind_phys), intent(in) | sec, |
|
|
integer, intent(in) | kdt, |
|
|
integer, intent(in) | imp_physics, |
|
|
integer, intent(in) | imp_physics_zhao_carr, |
|
|
integer, intent(in) | ipsd0, |
|
|
integer, intent(in) | ipsdlim, |
|
|
real(kind_phys), dimension(:), intent(inout) | ps_2delt, |
|
|
real(kind_phys), dimension(:), intent(inout) | ps_1delt, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | t_2delt, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | t_1delt, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | qv_2delt, |
|
|
real(kind_phys), dimension(:,:), intent(inout) | qv_1delt, |
|
|
real(kind_phys), dimension(:,:), intent(in) | t, |
|
|
real(kind_phys), dimension(:,:), intent(in) | qv, |
|
|
real(kind_phys), dimension(:), intent(in) | ps, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |