/home/dasprezs/EXPORT_v7_3/src/SURFEX/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 2 of file init_veg_gardenn.F90.

Here is the call graph for this function:

Here is the caller graph for this function: