energy_glacier()

subroutine, private noahmp_glacier_routines::energy_glacier ( 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) qsnow, real (kind=kind_phys), intent(in) rhoair, real (kind=kind_phys), intent(in) eair, 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) lwdn, real (kind=kind_phys), intent(in) uu, real (kind=kind_phys), intent(in) vv, 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) zref, real (kind=kind_phys), intent(in) tbot, real (kind=kind_phys), intent(in) zbot, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) zsnso, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) dzsnso, real (kind=kind_phys), intent(in) sigmaf1, real (kind=kind_phys), intent(in) garea1, 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, 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(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) sneqv, real (kind=kind_phys), intent(inout) sneqvo, 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, ifdef, ccpp )

private

Parameters

[in]	nsnow	maximum no. of snow layers
[in]	nsoil	number of soil layers
[in]	isnow	actual no. of snow layers
[in]	dt	time step [sec]
[in]	qsnow	snowfall on the ground (mm/s)
[in]	rhoair	density air (kg/m3)
[in]	eair	vapor pressure air (pa)
[in]	sfcprs	pressure (pa)
[in]	qair	specific humidity (kg/kg)
[in]	sfctmp	air temperature (k)
[in]	lwdn	downward longwave radiation (w/m2)
[in]	uu	wind speed in e-w dir (m/s)
[in]	vv	wind speed in n-s dir (m/s)
[in]	solad	incoming direct solar rad. (w/m2)
[in]	solai	incoming diffuse solar rad. (w/m2)
[in]	cosz	cosine solar zenith angle (0-1)
[in]	zref	reference height (m)
[in]	tbot	bottom condition for soil temp. (k)
[in]	zbot	depth for tbot [m]
[in]	zsnso	layer-bottom depth from snow surf [m]
[in]	dzsnso	depth of snow & soil layer-bottom [m]
[in]	pblhx	PBL height (m)
[in]	psfc	surface pressure
[in]	iz0tlnd	z0t option
[in]	itime	integration time
[in]	sigmaf1	areal fractional cover of green vegetation
[in]	garea1	area of the grid cell
[in,out]	tg	ground temperature (k)
[in,out]	stc	snow/soil temperature [k]
[in,out]	snowh	snow height [m]
[in,out]	sneqv	snow mass (mm)
[in,out]	sneqvo	snow mass at last time step (mm)
[in,out]	sh2o	liquid soil moisture [m3/m3]
[in,out]	smc	soil moisture (ice + liq.) [m3/m3]
[in,out]	snice	snow ice mass (kg/m2)
[in,out]	snliq	snow liq mass (kg/m2)
[in,out]	albold	snow albedo at last time step(class type)
[in,out]	cm	momentum drag coefficient
[in,out]	ch	sensible heat exchange coefficient

Definition at line 428 of file module_sf_noahmp_glacier.F90.

References glacier_flux(), phasechange_glacier(), radiation_glacier(), thermoprop_glacier(), and tsnosoi_glacier().

Referenced by noahmp_glacier().

Here is the call graph for this function:

Here is the caller graph for this function: