subroutine sfc_diag::sfc_diag_run |
( |
integer, intent(in) |
im, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xlat_d, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
xlon_d, |
|
|
integer, intent(in) |
lsm, |
|
|
integer, intent(in) |
lsm_ruc, |
|
|
real(kind=kind_phys), intent(in) |
grav, |
|
|
real(kind=kind_phys), intent(in) |
cp, |
|
|
real(kind=kind_phys), intent(in) |
eps, |
|
|
real(kind=kind_phys), intent(in) |
epsm1, |
|
|
real(kind=kind_phys), intent(in) |
con_rocp, |
|
|
real(kind=kind_phys), intent(in) |
con_karman, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
shflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
cdq, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
wind, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
zf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ps, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
u1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
v1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
t1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
q1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
prslki, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
evap, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
fm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
fh, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
fm10, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
fh2, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
ust, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tskin, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
qsurf, |
|
|
logical, intent(in) |
thsfc_loc, |
|
|
logical, intent(in) |
diag_flux, |
|
|
logical, intent(in) |
diag_log, |
|
|
integer, dimension(:), intent(in) |
use_lake_model, |
|
|
integer, intent(in) |
iopt_lake, |
|
|
integer, intent(in) |
iopt_lake_clm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
lake_t2m, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
lake_q2m, |
|
|
logical, intent(in) |
use_lake2m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
f10m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
u10m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
v10m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
t2m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
q2m, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
dpt2m, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |