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