subroutine, public cires_ugwp::cires_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, 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) | pa_rf_in, | ||
real(kind=kind_phys), intent(in) | tau_rf_in, | ||
real(kind=kind_phys), intent(in) | con_p0, | ||
integer, intent(in) | gwd_opt, | ||
logical, intent(in) | do_ugwp, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg ) |
Definition at line 42 of file cires_ugwp.F90.