phyaqua_mod Module

Contents

Subroutines

iniaqua zenang_an writelim_unstruct writelim profil_sst

Subroutines

public subroutine iniaqua(nlon, year_len, iflag_phys)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nlon
integer,	intent(in)			::	year_len
integer,	intent(in)			::	iflag_phys

public subroutine zenang_an(cycle_diurne, gmtime, rlat, rlon, rmu0, fract)

Arguments

Type	Intent	Optional	Attributes		Name
logical				::	cycle_diurne
real				::	gmtime
real				::	rlat(klon)
real				::	rlon(klon)
real				::	rmu0(klon)
real				::	fract(klon)

public subroutine writelim_unstruct(klon, phy_nat, phy_alb, phy_sst, phy_bil, phy_rug, phy_ice, phy_fter, phy_foce, phy_flic, phy_fsic)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	klon
real,	intent(in)			::	phy_nat(klon,360)
real,	intent(in)			::	phy_alb(klon,360)
real,	intent(in)			::	phy_sst(klon,360)
real,	intent(in)			::	phy_bil(klon,360)
real,	intent(in)			::	phy_rug(klon,360)
real,	intent(in)			::	phy_ice(klon,360)
real,	intent(in)			::	phy_fter(klon,360)
real,	intent(in)			::	phy_foce(klon,360)
real,	intent(in)			::	phy_flic(klon,360)
real,	intent(in)			::	phy_fsic(klon,360)

public subroutine writelim(klon, phy_nat, phy_alb, phy_sst, phy_bil, phy_rug, phy_ice, phy_fter, phy_foce, phy_flic, phy_fsic)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	klon
real,	intent(in)			::	phy_nat(klon,year_len)
real,	intent(in)			::	phy_alb(klon,year_len)
real,	intent(in)			::	phy_sst(klon,year_len)
real,	intent(in)			::	phy_bil(klon,year_len)
real,	intent(in)			::	phy_rug(klon,year_len)
real,	intent(in)			::	phy_ice(klon,year_len)
real,	intent(in)			::	phy_fter(klon,year_len)
real,	intent(in)			::	phy_foce(klon,year_len)
real,	intent(in)			::	phy_flic(klon,year_len)
real,	intent(in)			::	phy_fsic(klon,year_len)

public subroutine profil_sst(nlon, rlatd, type_profil, phy_sst)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	nlon
real				::	rlatd(nlon)
integer				::	type_profil
real				::	phy_sst(nlon,year_len)