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