subroutine, public unified_ugwp::unified_ugwp_init |
( |
integer, intent(in) |
me, |
|
|
integer, intent(in) |
master, |
|
|
integer, intent(in) |
nlunit, |
|
|
character(len=*), dimension(:), intent(in) |
input_nml_file, |
|
|
integer, intent(in) |
logunit, |
|
|
character(len=*), intent(in) |
fn_nml2, |
|
|
integer, dimension(:), intent(in) |
jdat, |
|
|
integer, intent(in) |
lonr, |
|
|
integer, intent(in) |
latr, |
|
|
integer, intent(in) |
levs, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ak, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
bk, |
|
|
real(kind=kind_phys), intent(in) |
dtp, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
cdmbgwd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
cgwf, |
|
|
real(kind=kind_phys), intent(in) |
con_pi, |
|
|
real(kind=kind_phys), intent(in) |
con_rerth, |
|
|
real(kind=kind_phys), intent(in) |
pa_rf_in, |
|
|
real(kind=kind_phys), intent(in) |
tau_rf_in, |
|
|
real(kind=kind_phys), intent(in) |
con_p0, |
|
|
logical, intent(in) |
do_ugwp, |
|
|
logical, intent(in) |
do_ugwp_v0, |
|
|
logical, intent(in) |
do_ugwp_v0_orog_only, |
|
|
logical, intent(in) |
do_ugwp_v0_nst_only, |
|
|
logical, intent(in) |
do_gsl_drag_ls_bl, |
|
|
logical, intent(in) |
do_gsl_drag_ss, |
|
|
logical, intent(in) |
do_gsl_drag_tofd, |
|
|
integer, intent(in) |
gwd_opt, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |