subroutine, public gfs_time_vary_pre::gfs_time_vary_pre_timestep_init |
( |
integer, dimension(:), intent(in) |
jdat, |
|
|
integer, dimension(:), intent(in) |
idat, |
|
|
real(kind=kind_phys), intent(in) |
dtp, |
|
|
integer, intent(in) |
nsswr, |
|
|
integer, intent(in) |
nslwr, |
|
|
integer, intent(in) |
nhfrad, |
|
|
integer, dimension(:), intent(in) |
idate, |
|
|
logical, intent(in) |
debug, |
|
|
integer, intent(in) |
me, |
|
|
integer, intent(in) |
master, |
|
|
integer, intent(in) |
nscyc, |
|
|
real(kind=kind_phys), intent(out) |
sec, |
|
|
real(kind=kind_phys), intent(out) |
phour, |
|
|
real(kind=kind_phys), intent(out) |
zhour, |
|
|
real(kind=kind_phys), intent(out) |
fhour, |
|
|
integer, intent(out) |
kdt, |
|
|
real(kind=kind_phys), intent(out) |
julian, |
|
|
integer, intent(out) |
yearlen, |
|
|
integer, intent(out) |
ipt, |
|
|
logical, intent(out) |
lprnt, |
|
|
logical, intent(out) |
lssav, |
|
|
logical, intent(out) |
lsswr, |
|
|
logical, intent(out) |
lslwr, |
|
|
real(kind=kind_phys), intent(out) |
solhr, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |