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) |
varss, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
ocss, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
oa4ss, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
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) |
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 |
|
) |
| |