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, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
drain_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dsnow_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
rain_cpl, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
snow_cpl, |
|
|
integer, intent(in) |
lndp_type, |
|
|
integer, intent(in) |
n_var_lndp, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
sfc_wts, |
|
|
character(len=3), dimension(:), intent(in) |
lndp_var_list, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
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) |
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) |
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 |
|
) |
| |