| subroutine gfs_gwd_generic_pre::gfs_gwd_generic_pre_run | ( | integer, intent(in) | im, |
| integer, intent(in) | levs, | ||
| integer, intent(in) | nmtvr, | ||
| real(kind=kind_phys), dimension(:,:), intent(in) | mntvar, | ||
| real(kind=kind_phys), dimension(:), intent(out) | oc, | ||
| real(kind=kind_phys), dimension(:,:), intent(out) | oa4, | ||
| real(kind=kind_phys), dimension(:,:), intent(out) | clx, | ||
| real(kind=kind_phys), dimension(:), intent(out) | theta, | ||
| real(kind=kind_phys), dimension(:), intent(out), optional | varss, | ||
| real(kind=kind_phys), dimension(:), intent(out), optional | ocss, | ||
| real(kind=kind_phys), dimension(:,:), intent(out), optional | oa4ss, | ||
| real(kind=kind_phys), dimension(:,:), intent(out), optional | clxss, | ||
| real(kind=kind_phys), dimension(:), intent(out) | sigma, | ||
| real(kind=kind_phys), dimension(:), intent(out) | gamma, | ||
| real(kind=kind_phys), dimension(:), intent(out) | elvmax, | ||
| logical, intent(in) | lssav, | ||
| logical, intent(in) | ldiag3d, | ||
| real(kind=kind_phys), dimension(:,:,:), intent(inout), optional | dtend, | ||
| integer, dimension(:,:), intent(in) | dtidx, | ||
| integer, intent(in) | index_of_temperature, | ||
| integer, intent(in) | index_of_x_wind, | ||
| integer, intent(in) | index_of_y_wind, | ||
| integer, intent(in) | index_of_process_orographic_gwd, | ||
| real(kind=kind_phys), dimension(:,:), intent(in) | dudt, | ||
| real(kind=kind_phys), dimension(:,:), intent(in) | dvdt, | ||
| real(kind=kind_phys), dimension(:,:), intent(in) | dtdt, | ||
| real(kind=kind_phys), intent(in) | dtf, | ||
| logical, intent(in) | flag_for_gwd_generic_tend, | ||
| character(len=*), intent(out) | errmsg, | ||
| integer, intent(out) | errflg ) |