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