ifdef ISO

subroutine fonte_neige_export_xtrun_off_lic_0(knon,xtrun_off_lic_0_diag) use infotrac_phy, ONLY: niso

! inputs
INTEGER, INTENT(IN)                      :: knon
real, INTENT(IN), DIMENSION(niso,klon)   :: xtrun_off_lic_0_diag

xtrun_off_lic_0(:,:)=xtrun_off_lic_0_diag(:,:)

end subroutine fonte_neige_export_xtrun_off_lic_0

endif

Uses

- indice_sol_mod
- dimphy
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

run_off_lic ffonte_global fqfonte_global fqcalving_global runofflic_global

Subroutines

fonte_neige_init fonte_neige fonte_neige_final fonte_neige_get_vars

Variables

Type	Visibility	Attributes		Name
real,	public,	ALLOCATABLE, DIMENSION(:)	::	run_off_lic
real,	public,	ALLOCATABLE, DIMENSION(:,:)	::	ffonte_global
real,	public,	ALLOCATABLE, DIMENSION(:,:)	::	fqfonte_global
real,	public,	ALLOCATABLE, DIMENSION(:,:)	::	fqcalving_global
real,	public,	ALLOCATABLE, DIMENSION(:)	::	runofflic_global

Subroutines

public subroutine fonte_neige_init(restart_runoff)

Input argument

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(klon)	::	restart_runoff

public subroutine fonte_neige(knon, nisurf, knindex, dtime, tsurf, precip_rain, precip_snow, snow, qsol, tsurf_new, evap, ice_sub)

Save ffonte, fqfonte and fqcalving in global arrays for each sub-surface separately

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	knon
integer,	intent(in)		::	nisurf
integer,	intent(in),	DIMENSION(klon)	::	knindex
real,	intent(in)		::	dtime
real,	intent(in),	DIMENSION(klon)	::	tsurf
real,	intent(in),	DIMENSION(klon)	::	precip_rain
real,	intent(in),	DIMENSION(klon)	::	precip_snow	Read more…
real,	intent(inout),	DIMENSION(klon)	::	snow
real,	intent(inout),	DIMENSION(klon)	::	qsol
real,	intent(inout),	DIMENSION(klon)	::	tsurf_new
real,	intent(inout),	DIMENSION(klon)	::	evap
real,	intent(out),	DIMENSION(klon)	::	ice_sub	Read more…

public subroutine fonte_neige_final(restart_runoff)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(out),		DIMENSION(klon)	::	restart_runoff	Set the output variables Read more…

public subroutine fonte_neige_get_vars(pctsrf, fqcalving_out, fqfonte_out, ffonte_out, run_off_lic_out)

Arguments

Type	Intent	Attributes		Name
real,	intent(in),	DIMENSION(klon,nbsrf)	::	pctsrf
real,	intent(out),	DIMENSION(klon)	::	fqcalving_out
real,	intent(out),	DIMENSION(klon)	::	fqfonte_out
real,	intent(out),	DIMENSION(klon)	::	ffonte_out
real,	intent(out),	DIMENSION(klon)	::	run_off_lic_out

fonte_neige_mod Module

Contents

Variables

Subroutines

ifdef ISO

endif

Uses

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine fonte_neige_init(restart_runoff)

Arguments

public subroutine fonte_neige(knon, nisurf, knindex, dtime, tsurf, precip_rain, precip_snow, snow, qsol, tsurf_new, evap, ice_sub)

Arguments

public subroutine fonte_neige_final(restart_runoff)

Arguments

public subroutine fonte_neige_get_vars(pctsrf, fqcalving_out, fqfonte_out, ffonte_out, run_off_lic_out)

Arguments