ocean_slab_ice Subroutine

public subroutine ocean_slab_ice(itime, dtime, jour, knon, knindex, tsurf_in, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, AcoefU, AcoefV, BcoefU, BcoefV, ps, u1, v1, gustiness, radsol, snow, qsurf, qsol, agesno, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, swnet)

---

---

2) Update snow and ice surface

---

snow precip

---

3) Recalculate new ocean temperature (add fluxes below ice) Melt / freeze from below *******o******** cumul fluxes

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	itime
real,	intent(in)			::	dtime
integer,	intent(in)			::	jour
integer,	intent(in)			::	knon
integer,	intent(in),		DIMENSION(klon)	::	knindex
real,	intent(in),		DIMENSION(klon)	::	tsurf_in
real,	intent(in),		DIMENSION(klon)	::	p1lay
real,	intent(in),		DIMENSION(klon)	::	cdragh
real,	intent(in),		DIMENSION(klon)	::	cdragm
real,	intent(in),		DIMENSION(klon)	::	precip_rain
real,	intent(in),		DIMENSION(klon)	::	precip_snow
real,	intent(in),		DIMENSION(klon)	::	temp_air
real,	intent(in),		DIMENSION(klon)	::	spechum
real,	intent(in),		DIMENSION(klon)	::	AcoefH
real,	intent(in),		DIMENSION(klon)	::	AcoefQ
real,	intent(in),		DIMENSION(klon)	::	BcoefH
real,	intent(in),		DIMENSION(klon)	::	BcoefQ
real,	intent(in),		DIMENSION(klon)	::	AcoefU
real,	intent(in),		DIMENSION(klon)	::	AcoefV
real,	intent(in),		DIMENSION(klon)	::	BcoefU
real,	intent(in),		DIMENSION(klon)	::	BcoefV
real,	intent(in),		DIMENSION(klon)	::	ps
real,	intent(in),		DIMENSION(klon)	::	u1
real,	intent(in),		DIMENSION(klon)	::	v1
real,	intent(in),		DIMENSION(klon)	::	gustiness
real,	intent(inout),		DIMENSION(klon)	::	radsol
real,	intent(inout),		DIMENSION(klon)	::	snow
real,	intent(out),		DIMENSION(klon)	::	qsurf
real,	intent(inout),		DIMENSION(klon)	::	qsol
real,	intent(inout),		DIMENSION(klon)	::	agesno
real,	intent(out),		DIMENSION(klon)	::	alb1_new
real,	intent(out),		DIMENSION(klon)	::	alb2_new
real,	intent(out),		DIMENSION(klon)	::	evap
real,	intent(out),		DIMENSION(klon)	::	fluxsens
real,	intent(out),		DIMENSION(klon)	::	fluxlat
real,	intent(out),		DIMENSION(klon)	::	flux_u1
real,	intent(out),		DIMENSION(klon)	::	flux_v1
real,	intent(out),		DIMENSION(klon)	::	tsurf_new
real,	intent(out),		DIMENSION(klon)	::	dflux_s
real,	intent(out),		DIMENSION(klon)	::	dflux_l
real,	intent(in),		DIMENSION(klon)	::	swnet

Contents