subroutine __module_sf_noahmplsm_f90__::energy |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | ice, |
|
|
integer, intent(in) | vegtyp, |
|
|
integer, intent(in) | ist, |
|
|
integer, intent(in) | nsnow, |
|
|
integer, intent(in) | nsoil, |
|
|
integer, intent(in) | isnow, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), intent(in) | rhoair, |
|
|
real (kind=kind_phys), intent(in) | sfcprs, |
|
|
real (kind=kind_phys), intent(in) | qair, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(in) | thair, |
|
|
real (kind=kind_phys), intent(in) | lwdn, |
|
|
real (kind=kind_phys), intent(in) | uu, |
|
|
real (kind=kind_phys), intent(in) | vv, |
|
|
real (kind=kind_phys), intent(in) | zref, |
|
|
real (kind=kind_phys), intent(in) | co2air, |
|
|
real (kind=kind_phys), intent(in) | o2air, |
|
|
real (kind=kind_phys), dimension( 1: 2), intent(in) | solad, |
|
|
real (kind=kind_phys), dimension( 1: 2), intent(in) | solai, |
|
|
real (kind=kind_phys), intent(in) | cosz, |
|
|
real (kind=kind_phys), intent(in) | igs, |
|
|
real (kind=kind_phys), intent(in) | eair, |
|
|
real (kind=kind_phys), intent(in) | tbot, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | zsnso, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) | zsoil, |
|
|
real (kind=kind_phys), intent(in) | elai, |
|
|
real (kind=kind_phys), intent(in) | esai, |
|
|
real (kind=kind_phys), intent(in) | fwet, |
|
|
real (kind=kind_phys), intent(in) | foln, |
|
|
real (kind=kind_phys), intent(in) | fveg, |
|
|
real (kind=kind_phys), intent(in) | shdfac, |
|
|
real (kind=kind_phys), intent(in) | pahv, |
|
|
real (kind=kind_phys), intent(in) | pahg, |
|
|
real (kind=kind_phys), intent(in) | pahb, |
|
|
real (kind=kind_phys), intent(in) | qsnow, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | dzsnso, |
|
|
real (kind=kind_phys), intent(in) | lat, |
|
|
real (kind=kind_phys), intent(in) | canliq, |
|
|
real (kind=kind_phys), intent(in) | canice, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
logical, intent(in) | thsfc_loc, |
|
|
real (kind=kind_phys), intent(in) | prslkix, |
|
|
real (kind=kind_phys), intent(in) | prsik1x, |
|
|
real (kind=kind_phys), intent(in) | prslk1x, |
|
|
real (kind=kind_phys), intent(in) | garea1, |
|
|
real (kind=kind_phys), intent(in) | pblhx, |
|
|
integer, intent(in) | iz0tlnd, |
|
|
integer, intent(in) | itime, |
|
|
integer, intent(in) | psi_opt, |
|
|
real (kind=kind_phys), intent(in) | ep_1, |
|
|
real (kind=kind_phys), intent(in) | ep_2, |
|
|
real (kind=kind_phys), intent(in) | epsm1, |
|
|
real (kind=kind_phys), intent(in) | cp, |
|
|
real (kind=kind_phys), intent(out) | z0wrf, |
|
|
real (kind=kind_phys), intent(out) | z0hwrf, |
|
|
integer, dimension(-nsnow+1:nsoil), intent(out) | imelt, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) | snicev, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) | snliqv, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) | epore, |
|
|
real (kind=kind_phys), intent(out) | t2m, |
|
|
real (kind=kind_phys), intent(out) | fsno, |
|
|
real (kind=kind_phys), intent(out) | sav, |
|
|
real (kind=kind_phys), intent(out) | sag, |
|
|
real (kind=kind_phys), intent(out) | qmelt, |
|
|
real (kind=kind_phys), intent(out) | fsa, |
|
|
real (kind=kind_phys), intent(out) | fsr, |
|
|
real (kind=kind_phys), intent(out) | taux, |
|
|
real (kind=kind_phys), intent(out) | tauy, |
|
|
real (kind=kind_phys), intent(out) | fira, |
|
|
real (kind=kind_phys), intent(out) | fsh, |
|
|
real (kind=kind_phys), intent(out) | fcev, |
|
|
real (kind=kind_phys), intent(out) | fgev, |
|
|
real (kind=kind_phys), intent(out) | fctr, |
|
|
real (kind=kind_phys), intent(out) | trad, |
|
|
real (kind=kind_phys), intent(out) | psn, |
|
|
real (kind=kind_phys), intent(out) | apar, |
|
|
real (kind=kind_phys), intent(out) | ssoil, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(out) | btrani, |
|
|
real (kind=kind_phys), intent(out) | btran, |
|
|
real (kind=kind_phys), intent(out) | ponding, |
|
|
real (kind=kind_phys), intent(out) | ts, |
|
|
real (kind=kind_phys), intent(out) | latheav, |
|
|
real (kind=kind_phys), intent(out) | latheag, |
|
|
logical, intent(out) | frozen_canopy, |
|
|
logical, intent(out) | frozen_ground, |
|
|
real (kind=kind_phys), intent(inout) | tv, |
|
|
real (kind=kind_phys), intent(inout) | tg, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) | stc, |
|
|
real (kind=kind_phys), intent(inout) | snowh, |
|
|
real (kind=kind_phys), intent(inout) | eah, |
|
|
real (kind=kind_phys), intent(inout) | tah, |
|
|
real (kind=kind_phys), intent(inout) | sneqvo, |
|
|
real (kind=kind_phys), intent(inout) | sneqv, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) | sh2o, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) | smc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) | snice, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) | snliq, |
|
|
real (kind=kind_phys), intent(inout) | albold, |
|
|
real (kind=kind_phys), intent(inout) | cm, |
|
|
real (kind=kind_phys), intent(inout) | ch, |
|
|
real (kind=kind_phys), intent(in) | dx, |
|
|
real (kind=kind_phys), intent(in) | dz8w, |
|
|
real (kind=kind_phys), intent(in) | q2, |
|
|
real (kind=kind_phys), intent(inout) | ustarx, |
|
|
| ifdef, |
|
|
| ccpp ) |
|
private |