noahmp_glacier()

subroutine, public noahmp_glacier_routines::noahmp_glacier	(	integer, intent(in)	iloc,
		integer, intent(in)	jloc,
		real (kind=kind_phys), intent(in)	cosz,
		integer, intent(in)	nsnow,
		integer, intent(in)	nsoil,
		real (kind=kind_phys), intent(in)	dt,
		real (kind=kind_phys), intent(in)	sfctmp,
		real (kind=kind_phys), intent(in)	sfcprs,
		real (kind=kind_phys), intent(in)	uu,
		real (kind=kind_phys), intent(in)	vv,
		real (kind=kind_phys), intent(in)	q2,
		real (kind=kind_phys), intent(in)	soldn,
		real (kind=kind_phys), intent(in)	prcp,
		real (kind=kind_phys), intent(in)	lwdn,
		real (kind=kind_phys), intent(in)	tbot,
		real (kind=kind_phys), intent(in)	zlvl,
		real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in)	ficeold,
		real (kind=kind_phys), dimension( 1:nsoil), intent(in)	zsoil,
		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)	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,
		real (kind=kind_phys), intent(inout)	qsnow,
		real (kind=kind_phys), intent(inout)	sneqvo,
		real (kind=kind_phys), intent(inout)	albold,
		real (kind=kind_phys), intent(inout)	cm,
		real (kind=kind_phys), intent(inout)	ch,
		integer, intent(inout)	isnow,
		real (kind=kind_phys), intent(inout)	sneqv,
		real (kind=kind_phys), dimension( 1:nsoil), intent(inout)	smc,
		real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout)	zsnso,
		real (kind=kind_phys), intent(inout)	snowh,
		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)	tg,
		real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout)	stc,
		real (kind=kind_phys), dimension( 1:nsoil), intent(inout)	sh2o,
		real (kind=kind_phys), intent(inout)	tauss,
		real (kind=kind_phys), intent(inout)	qsfc,
		real (kind=kind_phys), intent(out)	fsa,
		real (kind=kind_phys), intent(out)	fsr,
		real (kind=kind_phys), intent(out)	fira,
		real (kind=kind_phys), intent(out)	fsh,
		real (kind=kind_phys), intent(out)	fgev,
		real (kind=kind_phys), intent(out)	ssoil,
		real (kind=kind_phys), intent(out)	trad,
		real (kind=kind_phys), intent(out)	edir,
		real (kind=kind_phys), intent(out)	runsrf,
		real (kind=kind_phys), intent(out)	runsub,
		real (kind=kind_phys), intent(out)	sag,
		real (kind=kind_phys), intent(out)	albedo,
		real (kind=kind_phys), intent(out)	qsnbot,
		real (kind=kind_phys), intent(out)	ponding,
		real (kind=kind_phys), intent(out)	ponding1,
		real (kind=kind_phys), intent(out)	ponding2,
		real (kind=kind_phys), intent(out)	t2m,
		real (kind=kind_phys), intent(out)	q2e,
		real (kind=kind_phys), intent(out)	z0h_total,
			ifdef,
			ccpp )

Parameters

[in]	iloc	grid index
[in]	jloc	grid index
[in]	cosz	cosine solar zenith angle [0-1]
[in]	nsnow	maximum no. of snow layers
[in]	nsoil	no. of soil layers
[in]	dt	time step [sec]
[in]	sfctmp	surface air temperature [k]
[in]	sfcprs	pressure (pa)
[in]	uu	wind speed in eastward dir (m/s)
[in]	vv	wind speed in northward dir (m/s)
[in]	q2	mixing ratio (kg/kg) lowest model layer
[in]	soldn	downward shortwave radiation (w/m2)
[in]	prcp	precipitation rate (kg m-2 s-1)
[in]	lwdn	downward longwave radiation (w/m2)
[in]	tbot	bottom condition for soil temp. [k]
[in]	zlvl	reference height (m)
[in]	ficeold	ice fraction at last timestep
[in]	zsoil	layer-bottom depth from soil surf (m)
[in]	prslkix	pressure (pa)
[in]	prsik1x	pressure (pa)
[in]	prslk1x	pressure (pa)
[in]	itime	timestep
[in]	sigmaf1	areal fractional cover of green vegetation
[in]	garea1	area of the grid cell
[in,out]	qsnow	snowfall [mm/s]
[in,out]	sneqvo	snow mass at last time step (mm)
[in,out]	albold	snow albedo at last time step (class type)
[in,out]	cm	momentum drag coefficient
[in,out]	ch	sensible heat exchange coefficient
[in,out]	isnow	actual no. of snow layers [-]
[in,out]	sneqv	snow water eqv. [mm]
[in,out]	smc	soil moisture (ice + liq.) [m3/m3]
[in,out]	zsnso	layer-bottom depth from snow surf [m]
[in,out]	snowh	snow height [m]
[in,out]	snice	snow layer ice [mm]
[in,out]	snliq	snow layer liquid water [mm]
[in,out]	tg	ground temperature (k)
[in,out]	stc	snow/soil temperature [k]
[in,out]	sh2o	liquid soil moisture [m3/m3]
[in,out]	tauss	non-dimensional snow age
[in,out]	qsfc	mixing ratio at lowest model layer
[out]	fsa	total absorbed solar radiation (w/m2)
[out]	fsr	total reflected solar radiation (w/m2)
[out]	fira	total net lw rad (w/m2) [+ to atm]
[out]	fsh	total sensible heat (w/m2) [+ to atm]
[out]	fgev	ground evap heat (w/m2) [+ to atm]
[out]	ssoil	ground heat flux (w/m2) [+ to soil]
[out]	trad	surface radiative temperature (k)
[out]	edir	soil surface evaporation rate (mm/s]
[out]	runsrf	surface runoff [mm/s]
[out]	runsub	baseflow (saturation excess) [mm/s]
[out]	sag	solar rad absorbed by ground (w/m2)
[out]	albedo	surface albedo [-]
[out]	qsnbot	snowmelt [mm/s]
[out]	ponding	surface ponding [mm]
[out]	ponding1	surface ponding [mm]
[out]	ponding2	surface ponding [mm]
[out]	t2m	2-m air temperature over bare ground part [k]
[out]	z0h_total	roughness length for heat

Definition at line 126 of file module_sf_noahmp_glacier.F90.

References albedo(), atm_glacier(), energy_glacier(), error_glacier(), and water_glacier().

Here is the call graph for this function: