ocean_forced_noice Subroutine

public subroutine ocean_forced_noice(itime, dtime, jour, knon, knindex, p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, temp_air, spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, AcoefU, AcoefV, BcoefU, BcoefV, ps, u1, v1, gustiness, tsurf_in, radsol, snow, agesno, qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, sens_prec_liq, rhoa, dthetadz300, pctsrf, Ampl)

---

---

1)
Read sea-surface temperature from file limit.nc

---

--sb: jyg if (knon.eq.1) then ! single-column model

---

2) Flux calculation

---

Set some variables for calcul_fluxs cal = 0. beta = 1. dif_grnd = 0.

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)	::	p1lay
real,	intent(in),		DIMENSION(klon)	::	cdragh
real,	intent(in),		DIMENSION(klon)	::	cdragq
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(in),		DIMENSION(klon)	::	tsurf_in
real,	intent(inout),		DIMENSION(klon)	::	radsol
real,	intent(inout),		DIMENSION(klon)	::	snow
real,	intent(inout),		DIMENSION(klon)	::	agesno
real,	intent(out),		DIMENSION(klon)	::	qsurf
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(out)			::	sens_prec_liq(:)
real,	intent(in)			::	rhoa(:)
real,	intent(in),		DIMENSION(klon)	::	dthetadz300
real,	intent(in),		DIMENSION(klon,nbsrf)	::	pctsrf
real,	intent(out),		DIMENSION(klon)	::	Ampl

Contents