glacier_flux()

subroutine, private noahmp_glacier_routines::glacier_flux ( integer, intent(in) nsoil, integer, intent(in) nsnow, real (kind=kind_phys), intent(in) emg, integer, intent(in) isnow, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) df, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) dzsnso, real (kind=kind_phys), intent(in) z0m, real (kind=kind_phys), intent(in) zlvl, real (kind=kind_phys), intent(in) zpd, real (kind=kind_phys), intent(in) qair, real (kind=kind_phys), intent(in) sfctmp, real (kind=kind_phys), intent(in) rhoair, real (kind=kind_phys), intent(in) sfcprs, real (kind=kind_phys), intent(in) ur, real (kind=kind_phys), intent(in) gamma, real (kind=kind_phys), intent(in) rsurf, real (kind=kind_phys), intent(in) lwdn, real (kind=kind_phys), intent(in) rhsur, real (kind=kind_phys), dimension( 1:nsoil), intent(in) smc, real (kind=kind_phys), intent(in) eair, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) stc, real (kind=kind_phys), intent(in) sag, real (kind=kind_phys), intent(in) snowh, real (kind=kind_phys), intent(in) lathea, real (kind=kind_phys), dimension( 1:nsoil), intent(in) sh2o, 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) psfc, real (kind=kind_phys), intent(in) pblhx, integer, intent(in) iz0tlnd, integer, intent(in) itime, real (kind=kind_phys), intent(in) uu, real (kind=kind_phys), intent(in) vv, real (kind=kind_phys), intent(in) sigmaf1, real (kind=kind_phys), intent(in) garea1, 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

Parameters

[in]	nsnow	maximum no. of snow layers
[in]	nsoil	number of soil layers
[in]	emg	ground emissivity
[in]	isnow	actual no. of snow layers
[in]	df	thermal conductivity of snow/soil (w/m/k)
[in]	dzsnso	thickness of snow/soil layers (m)
[in]	z0m	roughness length, momentum, ground (m)
[in]	zlvl	reference height (m)
[in]	zpd	zero plane displacement (m)
[in]	qair	specific humidity at height zlvl (kg/kg)
[in]	sfctmp	air temperature at reference height (k)
[in]	rhoair	density air (kg/m3)
[in]	sfcprs	density air (kg/m3)
[in]	ur	wind speed at height zlvl (m/s)
[in]	gamma	psychrometric constant (pa/k)
[in]	rsurf	ground surface resistance (s/m)
[in]	lwdn	atmospheric longwave radiation (w/m2)
[in]	rhsur	raltive humidity in surface soil/snow air space (-)
[in]	eair	vapor pressure air at height (pa)
[in]	stc	soil/snow temperature (k)
[in]	smc	soil moisture
[in]	sh2o	soil liquid water
[in]	sag	solar radiation absorbed by ground (w/m2)
[in]	snowh	actual snow depth [m]
[in]	lathea	latent heat of vaporization/subli (j/kg)
[in]	itime	integration time

Definition at line 1039 of file module_sf_noahmp_glacier.F90.

References esat(), sfcdif1_glacier(), and sfcdif4().

Referenced by energy_glacier().

Here is the call graph for this function:

Here is the caller graph for this function: