init_veg_gardenn.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	init_veg_garden_n (KI, OCANOPY, HROUGH, TPSNOW, HPHOTO, PLAIMIN, PH_TREE, PVEGTYPE, PLAI, PZ0, PVEG, PEMIS, OTR_ML, PFAPARC, PFAPIRC, PLAI_EFFC, PMUS, PALBNIR_SOIL, PALBVIS_SOIL, PALBUV_SOIL, PALBNIR, PALBVIS, PALBUV, OSURF_DIAG_ALBEDO, PPSN, PPSNG, PPSNV, PPSNV_A, PDIR_ALB, PSCA_ALB, PEMIS_OUT, PTSRAD)

Function/Subroutine Documentation

subroutine init_veg_garden_n	(	integer, intent(in)	KI,
		logical, intent(in)	OCANOPY,
		character(len=4), intent(inout)	HROUGH,
		type(surf_snow), intent(inout)	TPSNOW,
		character(len=3), intent(in)	HPHOTO,
		real, dimension(:), intent(in)	PLAIMIN,
		real, dimension(:), intent(in)	PH_TREE,
		real, dimension(:,:), intent(in)	PVEGTYPE,
		real, dimension(:), intent(inout)	PLAI,
		real, dimension(:), intent(inout)	PZ0,
		real, dimension(:), intent(inout)	PVEG,
		real, dimension(:), intent(inout)	PEMIS,
		logical, intent(in)	OTR_ML,
		real, dimension(:), pointer	PFAPARC,
		real, dimension(:), pointer	PFAPIRC,
		real, dimension(:), pointer	PLAI_EFFC,
		real, dimension(:), pointer	PMUS,
		real, dimension(:), pointer	PALBNIR_SOIL,
		real, dimension(:), pointer	PALBVIS_SOIL,
		real, dimension(:), pointer	PALBUV_SOIL,
		real, dimension(:), pointer	PALBNIR,
		real, dimension(:), pointer	PALBVIS,
		real, dimension(:), pointer	PALBUV,
		logical, intent(out)	OSURF_DIAG_ALBEDO,
		real, dimension(:), pointer	PPSN,
		real, dimension(:), pointer	PPSNG,
		real, dimension(:), pointer	PPSNV,
		real, dimension(:), pointer	PPSNV_A,
		real, dimension(:,:), intent(out)	PDIR_ALB,
		real, dimension(:,:), intent(out)	PSCA_ALB,
		real, dimension(:), intent(out)	PEMIS_OUT,
		real, dimension(:), intent(out)	PTSRAD
	)

Definition at line 6 of file init_veg_gardenn.F90.

Here is the call graph for this function:

Here is the caller graph for this function: