subroutine mynnsfc_wrapper::mynnsfc_wrapper_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
itimestep, |
|
|
integer, intent(in) |
iter, |
|
|
logical, dimension(:), intent(in) |
flag_iter, |
|
|
logical, intent(in) |
flag_init, |
|
|
logical, intent(in) |
flag_restart, |
|
|
integer, intent(in) |
lsm, |
|
|
integer, intent(in) |
lsm_ruc, |
|
|
real(kind_phys), dimension(:), intent(in) |
sigmaf, |
|
|
integer, dimension(:), intent(in) |
vegtype, |
|
|
real(kind_phys), dimension(:), intent(in) |
shdmax, |
|
|
integer, intent(in) |
ivegsrc, |
|
|
real(kind_phys), dimension(:), intent(in) |
z0pert, |
|
|
real(kind_phys), dimension(:), intent(in) |
ztpert, |
|
|
logical, intent(in) |
redrag, |
|
|
integer, intent(in) |
sfc_z0_type, |
|
|
integer, intent(in) |
isftcflx, |
|
|
integer, intent(in) |
iz0tlnd, |
|
|
logical, intent(in) |
sfclay_compute_flux, |
|
|
logical, intent(in) |
sfclay_compute_diag, |
|
|
real(kind_phys), intent(in) |
delt, |
|
|
real(kind_phys), dimension(:), intent(in) |
dx, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
u, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
v, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
t3d, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
qvsh, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
qc, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
prsl, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
phii, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
exner, |
|
|
real(kind_phys), dimension(:), intent(in) |
ps, |
|
|
real(kind_phys), dimension(:), intent(in) |
PBLH, |
|
|
real(kind_phys), dimension(:), intent(in) |
slmsk, |
|
|
logical, dimension(:), intent(in) |
wet, |
|
|
logical, dimension(:), intent(in) |
dry, |
|
|
logical, dimension(:), intent(in) |
icy, |
|
|
real(kind_phys), dimension(:), intent(in) |
tskin_wat, |
|
|
real(kind_phys), dimension(:), intent(in) |
tskin_lnd, |
|
|
real(kind_phys), dimension(:), intent(in) |
tskin_ice, |
|
|
real(kind_phys), dimension(:), intent(in) |
tsurf_wat, |
|
|
real(kind_phys), dimension(:), intent(in) |
tsurf_lnd, |
|
|
real(kind_phys), dimension(:), intent(in) |
tsurf_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qsfc_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qsfc_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qsfc_ice, |
|
|
real(kind_phys), dimension(:), intent(in) |
snowh_lnd, |
|
|
real(kind_phys), dimension(:), intent(in) |
snowh_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
znt_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
znt_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
znt_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ust_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ust_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ust_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
cm_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
cm_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
cm_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ch_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ch_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ch_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
rb_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
rb_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
rb_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
stress_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
stress_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
stress_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fm_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fm_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fm_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fh_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fh_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fh_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fm10_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fm10_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fm10_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fh2_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fh2_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fh2_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
hflx_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
hflx_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
hflx_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qflx_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qflx_lnd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qflx_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
QSFC, |
|
|
real(kind_phys), dimension(:), intent(in) |
qsfc_lnd_ruc, |
|
|
real(kind_phys), dimension(:), intent(in) |
qsfc_ice_ruc, |
|
|
real(kind_phys), dimension(:), intent(inout) |
USTM, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ZOL, |
|
|
real(kind_phys), dimension(:), intent(inout) |
MOL, |
|
|
real(kind_phys), dimension(:), intent(inout) |
RMOL, |
|
|
real(kind_phys), dimension(:), intent(inout) |
WSPD, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ch, |
|
|
real(kind_phys), dimension(:), intent(inout) |
HFLX, |
|
|
real(kind_phys), dimension(:), intent(inout) |
QFLX, |
|
|
real(kind_phys), dimension(:), intent(inout) |
LH, |
|
|
real(kind_phys), dimension(:), intent(inout) |
FLHC, |
|
|
real(kind_phys), dimension(:), intent(inout) |
FLQC, |
|
|
real(kind_phys), dimension(:), intent(inout) |
U10, |
|
|
real(kind_phys), dimension(:), intent(inout) |
V10, |
|
|
real(kind_phys), dimension(:), intent(inout) |
TH2, |
|
|
real(kind_phys), dimension(:), intent(inout) |
T2, |
|
|
real(kind_phys), dimension(:), intent(inout) |
Q2, |
|
|
real(kind_phys), dimension(:), intent(inout) |
wstar, |
|
|
real(kind_phys), dimension(:), intent(inout) |
CHS2, |
|
|
real(kind_phys), dimension(:), intent(inout) |
CQS2, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
spp_wts_sfc, |
|
|
integer, intent(in) |
spp_sfc, |
|
|
logical, intent(in) |
lprnt, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |