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) | usfco, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | vsfco, |
|
|
integer, intent(in) | icplocn2atm, |
|
|
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), optional | lake_t2m, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | 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 ) |