sea_model Module

  1. sea_model.f90
  2. sea_model

Uses

  • module~~sea_model~~UsesGraph module~sea_model sea_model module~params params module~sea_model->module~params

Used by

  • module~~sea_model~~UsedByGraph module~sea_model sea_model proc~initialize_coupler initialize_coupler proc~initialize_coupler->module~sea_model proc~set_forcing set_forcing proc~set_forcing->module~sea_model proc~initialize initialize proc~initialize->module~sea_model proc~couple_sea_land couple_sea_land proc~couple_sea_land->module~sea_model proc~get_physical_tendencies get_physical_tendencies proc~get_physical_tendencies->module~sea_model

Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
real, private :: rhcaps(ix,il)
real, private :: rhcapi(ix,il)
real, private :: cdsea(ix,il)
real, private :: cdice(ix,il)
real, private :: beta =1.0
real, public :: fmask_s(ix,il)
real, private :: bmask_s(ix,il)
real, private :: deglat_s(il)
real, private :: sst12(ix,il,12)
real, private :: sice12(ix,il,12)
real, private :: sstan3(ix,il,3)
real, private :: hfseacl(ix,il)
real, private :: sstom12(ix,il,12)
real, public :: sstcl_ob(ix,il)
real, private :: sicecl_ob(ix,il)
real, private :: ticecl_ob(ix,il)
real, private :: sstan_ob(ix,il)
real, private :: sstcl_om(ix,il)
real, public :: sst_am(ix,il)
real, private :: sstan_am(ix,il)
real, public :: sice_am(ix,il)
real, public :: tice_am(ix,il)
real, private :: sst_om(ix,il)
real, private :: sice_om(ix,il)
real, private :: tice_om(ix,il)
real, public :: ssti_om(ix,il)
real, private :: wsst_ob(ix,il)
integer, public :: sea_coupling_flag =0
integer, private :: ice_coupling_flag =1
integer, public :: sst_anomaly_coupling_flag =1

Subroutines

public subroutine sea_model_init()

Arguments

None

public subroutine couple_sea_atm(day)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: day

private subroutine obs_ssta()

Arguments

None

private subroutine run_sea_model()

Arguments

None

private subroutine sea_domain(cdomain, dmask)

Arguments

Type IntentOptional AttributesName
character(len=6), intent(in) :: cdomain
real, intent(inout) :: dmask(ix,il)