ocean_cpl_mod – Fortran Program

Uses

- clesphys_mod_h
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.

Subroutines

ocean_cpl_init ocean_cpl_noice ocean_cpl_ice

Subroutines

public subroutine ocean_cpl_init(dtime, rlon, rlat)

Arguments

Type	Intent	Attributes		Name
real,	intent(in)		::	dtime
real,	intent(in),	DIMENSION(klon)	::	rlon	Read more…
real,	intent(in),	DIMENSION(klon)	::	rlat	Read more…

public subroutine ocean_cpl_noice(swnet, lwnet, alb1, windsp, fder_old, itime, dtime, 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, sss, delta_sal, rhoa, delta_sst, dter, dser, dt_ds)

Receive sea-surface temperature(tsurf_cpl) from coupler

Arguments

Type	Intent	Attributes		Name
real,	intent(in),	DIMENSION(klon)	::	swnet
real,	intent(in),	DIMENSION(klon)	::	lwnet
real,	intent(in),	DIMENSION(klon)	::	alb1
real,	intent(in),	DIMENSION(klon)	::	windsp
real,	intent(in),	DIMENSION(klon)	::	fder_old
integer,	intent(in)		::	itime
real,	intent(in)		::	dtime
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)		::	tsurf_in(:)
real,	intent(inout),	DIMENSION(klon)	::	radsol
real,	intent(inout),	DIMENSION(klon)	::	snow
real,	intent(inout),	DIMENSION(klon)	::	agesno	Read more…
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(out)		::	sss(:)	Read more…
real,	intent(in)		::	delta_sal(:)
real,	intent(in)		::	rhoa(:)
real,	intent(in)		::	delta_sst(:)
real,	intent(in)		::	dter(:)
real,	intent(in)		::	dser(:)
real,	intent(in)		::	dt_ds(:)	Read more…

public subroutine ocean_cpl_ice(rlon, rlat, swnet, lwnet, alb1, fder_old, itime, dtime, knon, knindex, lafin, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, AcoefU, AcoefV, BcoefU, BcoefV, ps, u1, v1, gustiness, pctsrf, radsol, snow, qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, rhoa)

Receive ocean temperature(tsurf_cpl) and albedo(alb_new) from coupler

Arguments

Type	Intent	Attributes		Name
real,	intent(in),	DIMENSION(klon)	::	rlon
real,	intent(in),	DIMENSION(klon)	::	rlat
real,	intent(in),	DIMENSION(klon)	::	swnet
real,	intent(in),	DIMENSION(klon)	::	lwnet
real,	intent(in),	DIMENSION(klon)	::	alb1
real,	intent(in),	DIMENSION(klon)	::	fder_old
integer,	intent(in)		::	itime
real,	intent(in)		::	dtime
integer,	intent(in)		::	knon
integer,	intent(in),	DIMENSION(klon)	::	knindex
logical,	intent(in)		::	lafin
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(in),	DIMENSION(klon,nbsrf)	::	pctsrf
real,	intent(inout),	DIMENSION(klon)	::	radsol
real,	intent(inout),	DIMENSION(klon)	::	snow	Read more…
real,	intent(out),	DIMENSION(klon)	::	qsurf
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	Read more…
real,	intent(out),	DIMENSION(klon)	::	dflux_l	Read more…
real,	intent(in)		::	rhoa(:)	Read more…

ocean_cpl_mod Module

Contents

Subroutines

Uses

Contents

Subroutines

Subroutines

public subroutine ocean_cpl_init(dtime, rlon, rlat)

Arguments

Arguments

Arguments