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 ) |