subroutine sfc_land::sfc_land_run |
( |
integer, intent(in) | im, |
|
|
logical, intent(in) | flag_init, |
|
|
logical, intent(in) | flag_restart, |
|
|
logical, intent(in) | cpllnd, |
|
|
logical, intent(in) | cpllnd2atm, |
|
|
logical, dimension(:), intent(in) | flag_iter, |
|
|
logical, dimension(:), intent(in) | dry, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | t1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | q1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | prsl1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | prslki, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ps, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tskin, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | wind, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | cm, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | ch, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | dlwflx, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | dswsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfalb, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcemis, |
|
|
real(kind=kind_phys), intent(in) | rd, |
|
|
real(kind=kind_phys), intent(in) | eps, |
|
|
real(kind=kind_phys), intent(in) | epsm1, |
|
|
real(kind=kind_phys), intent(in) | rvrdm1, |
|
|
real(kind=kind_phys), intent(in) | hvap, |
|
|
real(kind=kind_phys), intent(in) | cp, |
|
|
real(kind=kind_phys), intent(in) | con_sbc, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | sncovr1_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | qsurf_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | evap_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | hflx_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | ep_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | t2mmp_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | q2mp_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | gflux_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | runoff_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | drain_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | cmm_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | chh_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | zvfun_lnd, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in), optional | slc, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | sncovr1, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | qsurf, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | evap, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | hflx, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | ep, |
|
|
real(kind=kind_phys), dimension(:), intent(inout), optional | t2mmp, |
|
|
real(kind=kind_phys), dimension(:), intent(inout), optional | q2mp, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | gflux, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | runoff, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | drain, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | cmm, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | chh, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | zvfun, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |