subroutine __module_sf_noahmplsm_f90__::bare_flux |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
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) | sag, |
|
|
real (kind=kind_phys), intent(in) | lwdn, |
|
|
real (kind=kind_phys), intent(in) | ur, |
|
|
real (kind=kind_phys), intent(in) | uu, |
|
|
real (kind=kind_phys), intent(in) | vv, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(in) | thair, |
|
|
real (kind=kind_phys), intent(in) | qair, |
|
|
real (kind=kind_phys), intent(in) | eair, |
|
|
real (kind=kind_phys), intent(in) | rhoair, |
|
|
real (kind=kind_phys), intent(in) | snowh, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | dzsnso, |
|
|
real (kind=kind_phys), intent(in) | zlvl, |
|
|
real (kind=kind_phys), intent(in) | zpd, |
|
|
real (kind=kind_phys), intent(in) | z0m, |
|
|
real (kind=kind_phys), intent(in) | fsno, |
|
|
real (kind=kind_phys), intent(in) | emg, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | stc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) | df, |
|
|
real (kind=kind_phys), intent(in) | rsurf, |
|
|
real (kind=kind_phys), intent(in) | lathea, |
|
|
real (kind=kind_phys), intent(in) | gamma, |
|
|
real (kind=kind_phys), intent(in) | rhsur, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
real (kind=kind_phys), intent(in) | q2, |
|
|
real (kind=kind_phys), intent(in) | pahb, |
|
|
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, |
|
|
integer, intent(in) | vegtyp, |
|
|
real (kind=kind_phys), intent(in) | fveg, |
|
|
real (kind=kind_phys), intent(in) | shdfac, |
|
|
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, |
|
|
| ifdef, |
|
|
| ccpp ) |
|
private |