subroutine, public gfs_rad_time_vary::gfs_rad_time_vary_timestep_init |
( |
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, |
|
|
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 |
|
) |
| |