ecume_seaflux.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ecume_seaflux (PZ0SEA, PMASK, KSIZE_WATER, KSIZE_ICE, PTA, PEXNA, PRHOA, PSST, PSSS, PEXNS, PQA, PRAIN, PSNOW, PVMOD, PZREF, PUREF, PPS, PPA, PICHCE, OPRECIP, OPWEBB, OPWG, KZ0, OHANDLE_SIC, PQSAT, PSFTH, PSFTQ, PUSTAR, PCD, PCDN, PCH, PCE, PRI, PRESA, PZ0HSEA, OPERTFLUX, PPERTFLUX, HECUME)
subroutine	treat_surf (KMASK, YTYPE)

Function/Subroutine Documentation

subroutine ecume_seaflux	(	real, dimension(:), intent(inout)	PZ0SEA,
		real, dimension(:), intent(in)	PMASK,
		integer, intent(in)	KSIZE_WATER,
		integer, intent(in)	KSIZE_ICE,
		real, dimension(:), intent(in)	PTA,
		real, dimension(:), intent(in)	PEXNA,
		real, dimension(:), intent(in)	PRHOA,
		real, dimension(:), intent(in)	PSST,
		real, dimension(:), intent(in)	PSSS,
		real, dimension(:), intent(in)	PEXNS,
		real, dimension(:), intent(in)	PQA,
		real, dimension(:), intent(in)	PRAIN,
		real, dimension(:), intent(in)	PSNOW,
		real, dimension(:), intent(in)	PVMOD,
		real, dimension(:), intent(in)	PZREF,
		real, dimension(:), intent(in)	PUREF,
		real, dimension(:), intent(in)	PPS,
		real, dimension(:), intent(in)	PPA,
		real, intent(in)	PICHCE,
		logical, intent(in)	OPRECIP,
		logical, intent(in)	OPWEBB,
		logical, intent(in)	OPWG,
		integer, intent(in)	KZ0,
		logical, intent(in)	OHANDLE_SIC,
		real, dimension(:), intent(out)	PQSAT,
		real, dimension(:), intent(out)	PSFTH,
		real, dimension(:), intent(out)	PSFTQ,
		real, dimension(:), intent(out)	PUSTAR,
		real, dimension(:), intent(out)	PCD,
		real, dimension(:), intent(out)	PCDN,
		real, dimension(:), intent(out)	PCH,
		real, dimension(:), intent(out)	PCE,
		real, dimension(:), intent(out)	PRI,
		real, dimension(:), intent(out)	PRESA,
		real, dimension(:), intent(out)	PZ0HSEA,
		logical, intent(in)	OPERTFLUX,
		real, dimension(:), intent(in)	PPERTFLUX,
		character(len=6), intent(in)	HECUME
	)

Definition at line 6 of file ecume_seaflux.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine ecume_seaflux::treat_surf	(	integer, dimension(:), intent(in)	KMASK,
		character(len=1), intent(in)	YTYPE
	)

Definition at line 174 of file ecume_seaflux.F90.

Here is the call graph for this function: