lsmruc()

subroutine, public module_sf_ruclsm::lsmruc	(	real (kind_phys), intent(in)	xlat,
		real (kind_phys), intent(in)	xlon,
		real (kind_phys), intent(in)	dt,
		logical, intent(in)	init,
		logical, intent(in)	lsm_cold_start,
		integer, intent(in)	ktau,
		integer, intent(in)	iter,
		integer, intent(in)	nsl,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	graupelncv,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	snowncv,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	rainncv,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	raincv,
		real (kind_phys), dimension( 1:nsl), intent(in)	zs,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	rainbl,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	snow,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	snowh,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	snowc,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	frzfrac,
		logical, intent(in)	frpcpn,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(out)	rhosnf,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(out)	precipfr,
		logical, intent(in)	exticeden,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	hgt,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	stdev,
		real (kind_phys), dimension( ims:ime, kms:kme, jms:jme ), intent(in)	z3d,
		real (kind_phys), dimension( ims:ime, kms:kme, jms:jme ), intent(in)	p8w,
		real (kind_phys), dimension( ims:ime, kms:kme, jms:jme ), intent(in)	t3d,
		real (kind_phys), dimension( ims:ime, kms:kme, jms:jme ), intent(in)	qv3d,
		real (kind_phys), dimension( ims:ime, kms:kme, jms:jme ), intent(in)	qc3d,
		real (kind_phys), dimension( ims:ime, kms:kme, jms:jme ), intent(in)	rho3d,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	emisbck,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	glw,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	gswdn,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	gsw,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	emiss,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	chklowq,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	chs,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	flqc,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	flhc,
		real (kind_phys), dimension( ims:ime), intent(in)	rhonewsn_ex,
		integer, intent(in)	mosaic_lu,
		integer, intent(in)	mosaic_soil,
		integer, intent(in)	isncond_opt,
		integer, intent(in)	isncovr_opt,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	mavail,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	canwat,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	vegfra,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	alb,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	znt,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	z0,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	snoalb,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	albbck,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	lai,
		real (kind_phys), dimension( ims:ime , 1:nlcat, jms:jme ), intent(in)	landusef,
		integer, intent(in)	nlcat,
		real (kind_phys), dimension( ims:ime , 1:nscat, jms:jme ), intent(in)	soilctop,
		integer, intent(in)	nscat,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	smcwlt,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	smcref,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	qsfc,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	qsg,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	qvg,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	qcg,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	dew,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	soilt1,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	tsnav,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	tbot,
		integer, dimension( ims:ime , jms:jme ), intent(in)	ivgtyp,
		integer, dimension( ims:ime , jms:jme ), intent(in)	isltyp,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	xland,
		integer, intent(in)	iswater,
		integer, intent(in)	isice,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	xice,
		real (kind_phys), intent(in)	xice_threshold,
		real (kind_phys), intent(in)	cp,
		real (kind_phys), intent(in)	rv,
		real (kind_phys), intent(in)	rd,
		real (kind_phys), intent(in)	g0,
		real (kind_phys), intent(in)	pi,
		real (kind_phys), intent(in)	lv,
		real (kind_phys), intent(in)	stbolt,
		real (kind_phys), dimension( ims:ime , 1:nsl, jms:jme ), intent(inout)	soilmois,
		real (kind_phys), dimension( ims:ime , 1:nsl, jms:jme ), intent(inout)	sh2o,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	smavail,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	smmax,
		real (kind_phys), dimension( ims:ime , 1:nsl, jms:jme ), intent(inout)	tso,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	soilt,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	edir,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	ec,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	ett,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	sublim,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	snoh,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	hfx,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	qfx,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	lh,
		real (kind_phys), dimension( its:ite, jts:jte )	infiltr,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	runoff1,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	runoff2,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	acrunoff,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(inout)	sfcexc,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	sfcevp,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	grdflx,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(out)	snowfallac,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	acsnow,
		real (kind_phys), dimension( ims:ime, jms:jme ), intent(inout)	snom,
		real (kind_phys), dimension( ims:ime, 1:nsl, jms:jme)	smfr3d,
		real (kind_phys), dimension( ims:ime, 1:nsl, jms:jme)	keepfr3dflag,
		logical, intent(in)	add_fire_heat_flux,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	fire_heat_flux,
		logical, intent(in)	myj,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	shdmin,
		real (kind_phys), dimension( ims:ime , jms:jme ), intent(in)	shdmax,
		logical, intent(in)	rdlai2d,
		integer, intent(in)	ims,
		integer, intent(in)	ime,
		integer, intent(in)	jms,
		integer, intent(in)	jme,
		integer, intent(in)	kms,
		integer, intent(in)	kme,
		integer, intent(in)	its,
		integer, intent(in)	ite,
		integer, intent(in)	jts,
		integer, intent(in)	jte,
		integer, intent(in)	kts,
		integer, intent(in)	kte,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg )

RUC LSM General Algorithm

• Table TBQ is for resolution of balance equation in vilka()

• Initialize soil/vegetation parameters

• Initializing inside-snow temp if it is not defined

• For RUC LSM CHKLOWQ needed for MYJPBL should 1 because is actual specific humidity at the surface, and not the saturation value

• Z3D(1) is thickness between first full sigma level and the surface, but first mass level is at the half of the first sigma level (u and v are also at the half of first sigma level)

• Initialize snow, graupel and ice fractions in frozen precip

• Apply the same frozen precipitation fraction to convective precip

• Calculate snow, graupel and ice fractions in falling frozen precip

• If here no info about constituents of frozen precipitation, suppose it is all snow

• Convert exchange coeff QKMS to [m/s]

• Convert incoming snow and canwat from mm to m

• Call soilvegin() to initialize soil and surface properties

Definition at line 88 of file module_sf_ruclsm.F90.

References qsn(), sfctmp(), and soilvegin().

Referenced by lsm_ruc::lsm_ruc_run().

Here is the call graph for this function:

Here is the caller graph for this function: