subroutine, public ugwpv1_gsldrag::ugwpv1_gsldrag_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), intent(in) | con_pi, |
|
|
real(kind=kind_phys), intent(in) | con_rerth, |
|
|
real(kind=kind_phys), intent(in) | con_p0, |
|
|
real(kind=kind_phys), intent(in) | con_g, |
|
|
real(kind=kind_phys), intent(in) | con_omega, |
|
|
real(kind=kind_phys), intent(in) | con_cp, |
|
|
real(kind=kind_phys), intent(in) | con_rd, |
|
|
real(kind=kind_phys), intent(in) | con_rv, |
|
|
real(kind=kind_phys), intent(in) | con_fvirt, |
|
|
logical, intent(in) | do_ugwp, |
|
|
logical, intent(in) | do_ugwp_v0, |
|
|
logical, intent(in) | do_ugwp_v0_orog_only, |
|
|
logical, intent(in) | do_gsl_drag_ls_bl, |
|
|
logical, intent(in) | do_gsl_drag_ss, |
|
|
logical, intent(in) | do_gsl_drag_tofd, |
|
|
logical, intent(in) | do_ugwp_v1, |
|
|
logical, intent(in) | do_ugwp_v1_orog_only, |
|
|
logical, intent(in) | do_ugwp_v1_w_gsldrag, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |