subroutine, public gfs_surface_composites_pre::gfs_surface_composites_pre_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
lkm, |
|
|
logical, intent(in) |
frac_grid, |
|
|
integer, intent(in) |
iopt_lake, |
|
|
integer, intent(in) |
iopt_lake_clm, |
|
|
logical, dimension(:), intent(inout) |
flag_cice, |
|
|
logical, intent(in) |
cplflx, |
|
|
logical, intent(in) |
cplice, |
|
|
logical, intent(in) |
cplwav2atm, |
|
|
integer, intent(in) |
lsm, |
|
|
integer, intent(in) |
lsm_ruc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
landfrac, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
lakefrac, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
lakedepth, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
oceanfrac, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
frland, |
|
|
logical, dimension(:), intent(inout) |
dry, |
|
|
logical, dimension(:), intent(inout) |
icy, |
|
|
logical, dimension(:), intent(inout) |
lake, |
|
|
integer, dimension(:), intent(in) |
use_lake_model, |
|
|
logical, dimension(:), intent(inout) |
wet, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
hice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
cice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
zorlo, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
zorll, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
zorli, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
snowd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
snowd_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
snowd_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tprcp, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tprcp_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tprcp_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tprcp_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
uustar, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
uustar_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
uustar_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
uustar_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
weasd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
weasd_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
weasd_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
ep1d_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsfco, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsfcl, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsfc_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tisfc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsurf_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsurf_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
tsurf_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
gflx_ice, |
|
|
real(kind=kind_phys), intent(in) |
tgice, |
|
|
integer, dimension(:), intent(inout) |
islmsk, |
|
|
integer, dimension(:), intent(inout) |
islmsk_cice, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
slmsk, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
qss, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
qss_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
qss_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
qss_ice, |
|
|
real(kind=kind_phys), intent(in) |
min_lakeice, |
|
|
real(kind=kind_phys), intent(in) |
min_seaice, |
|
|
integer, intent(in) |
kdt, |
|
|
real(kind=kind_phys), intent(in) |
huge, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |