| subroutine, public gfs_surface_generic_pre::gfs_surface_generic_pre_run | ( | integer, intent(in) | nthreads, |
| integer, intent(in) | im, | ||
| integer, intent(in) | levs, | ||
| real(kind=kind_phys), dimension(:), intent(in) | vfrac, | ||
| integer, dimension(:), intent(in) | islmsk, | ||
| integer, intent(in) | isot, | ||
| integer, intent(in) | ivegsrc, | ||
| integer, dimension(:), intent(inout) | stype, | ||
| integer, dimension(:), intent(inout) | scolor, | ||
| integer, dimension(:), intent(inout) | vtype, | ||
| integer, dimension(:), intent(inout) | slope, | ||
| real(kind=kind_phys), dimension(:), intent(in) | prsik_1, | ||
| real(kind=kind_phys), dimension(:), intent(in) | prslk_1, | ||
| real(kind=kind_phys), dimension(:), intent(inout) | tsfc, | ||
| real(kind=kind_phys), dimension(:,:), intent(in) | phil, | ||
| real(kind=kind_phys), intent(in) | con_g, | ||
| real(kind=kind_phys), dimension(:), intent(inout) | sigmaf, | ||
| real(kind=kind_phys), dimension(:), intent(inout) | work3, | ||
| real(kind=kind_phys), dimension(:), intent(inout) | zlvl, | ||
| integer, intent(in) | lndp_type, | ||
| integer, intent(in) | n_var_lndp, | ||
| real(kind=kind_phys), dimension(:,:), intent(in), optional | sfc_wts, | ||
| character(len=3), dimension(:), intent(in), optional | lndp_var_list, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | lndp_prt_list, | ||
| real(kind=kind_phys), dimension(:), intent(out) | z01d, | ||
| real(kind=kind_phys), dimension(:), intent(out) | zt1d, | ||
| real(kind=kind_phys), dimension(:), intent(out) | bexp1d, | ||
| real(kind=kind_phys), dimension(:), intent(out) | xlai1d, | ||
| real(kind=kind_phys), dimension(:), intent(out) | vegf1d, | ||
| real(kind=kind_phys), intent(out) | lndp_vgf, | ||
| logical, intent(in) | cplflx, | ||
| logical, dimension(:), intent(inout) | flag_cice, | ||
| integer, dimension(:), intent(out) | islmsk_cice, | ||
| real(kind=kind_phys), dimension(:), intent(in), optional | slimskin_cpl, | ||
| real(kind=kind_phys), dimension(:), intent(out) | wind, | ||
| real(kind=kind_phys), dimension(:), intent(in) | u1, | ||
| real(kind=kind_phys), dimension(:), intent(in) | v1, | ||
| real(kind=kind_phys), dimension(:), intent(inout), optional | cnvwind, | ||
| real(kind=kind_phys), dimension(:), intent(out) | smcwlt2, | ||
| real(kind=kind_phys), dimension(:), intent(out) | smcref2, | ||
| integer, dimension(:), intent(out) | vtype_save, | ||
| integer, dimension(:), intent(out) | stype_save, | ||
| integer, dimension(:), intent(out) | scolor_save, | ||
| integer, dimension(:), intent(out) | slope_save, | ||
| character(len=*), intent(out) | errmsg, | ||
| integer, intent(out) | errflg ) |
References surface_perturbation::cdfnor(), and update_vegetation_soil_slope_type().
1.16.1 