sea_model Module

  1. sea_model.f90
  2. sea_model

.false. = climatological SST .true. = observed anomaly (active if sea_coupling_flag = 0, 1; set to 1 if sea_coupling_flag = 4)


Uses

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

Used by

  • module~~sea_model~~UsedByGraph module~sea_model sea_model proc~couple_sea_land couple_sea_land proc~couple_sea_land->module~sea_model proc~initialize_coupler initialize_coupler proc~initialize_coupler->module~sea_model proc~get_physical_tendencies get_physical_tendencies proc~get_physical_tendencies->module~sea_model proc~initialize_state initialize_state proc~initialize_state->module~sea_model

Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
real(kind=p), private, parameter:: beta =1.0

Heat flux coefficient at sea/ice interface [(W/m^2)/deg]
integer, public, parameter:: sea_coupling_flag =0

0 = precribed SST, no coupling 1 = precribed SST, ocean model forced by atmosphere (not supoprted!) 2 = full (uncorrected) SST from coupled ocean model (not supoprted!) 3 = SST anomaly from coupled ocean model + observed SST climatology (not supoprted!) 4 = as 3 with prescribed SST anomaly in ElNino region (not supoprted!)
integer, private, parameter:: ice_coupling_flag =1

ice_coupling_flag: Flag for sea-ice coupling

Subroutines

public subroutine sea_model_init(state)

Arguments

Type IntentOptional AttributesName
type(ModelState_t), intent(inout) :: state

public subroutine couple_sea_atm(state, day, control_params)

Arguments

Type IntentOptional AttributesName
type(ModelState_t), intent(inout) :: state
integer, intent(in) :: day
type(ControlParams_t), intent(in) :: control_params

private subroutine run_sea_model(state)

Arguments

Type IntentOptional AttributesName
type(ModelState_t), intent(inout) :: state

private subroutine sea_domain(cdomain, dmask, deglat_s)

Arguments

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