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), optional | qsfc_lnd_ruc, |
|
|
real(kind_phys), dimension(:), intent(in), optional | 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), optional | spp_wts_sfc, |
|
|
integer, intent(in) | spp_sfc, |
|
|
logical, intent(in) | lprnt, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |