Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

underice

Module:

File: SEAICE_DRV.f

Summary: underice calculates basal fluxes under sea and lake ice saves the resulting fluxes
Author : Gavin Schmidt
Version:

---

Declaration:

subroutine underice(si_state, iceocn, atmocn)

Calls the following subroutines/functions:

iceocean_fluxes

icelake_fluxes

Variables:

rhow : used from constant

rhows : used from constant

omega : used from constant

rhoi : used from constant

shw : used from constant

dtsrc : used from model_com

qcheck : used from model_com

kocean : used from model_com

lmi : used from seaice

xsi : used from seaice

icelake_fluxes : used from seaice

iceocean_fluxes : used from seaice

ac2oim : used from seaice

alpha : used from seaice

tfrez : used from seaice

debug : used from seaice

ti : used from seaice

deidti : used from seaice

alami : used from seaice

iceocn_xchng_vars : used from exchange_types

atmocn_xchng_vars : used from exchange_types

icestate : used from seaice_com

starttimer : used from timerpackage_mod

Initial Value = > start

stoptimer : used from timerpackage_mod

Initial Value = > stop

si_state : type(icestate)

iceocn : type(iceocn_xchng_vars)

atmocn : type(atmocn_xchng_vars)

domain : character(len=8)

i : integer

j : integer

dopoint : logical

coriol : real*8

ustar : real*8

tm : real*8

sm : real*8

si : real*8

tic : real*8

dh : real*8

mflux : real*8

hflux : real*8

sflux : real*8

fluxlim : real*8

mlsh : real*8

icefrac : real*8

fmsi_io : real*8, dimension(:, :), pointer

fhsi_io : real*8, dimension(:, :), pointer

fssi_io : real*8, dimension(:, :), pointer

ui2rho : real*8, dimension(:, :), pointer

sss : real*8, dimension(:, :), pointer

mlhc : real*8, dimension(:, :), pointer

fwater : real*8, dimension(:, :), pointer

mldlk : real*8, dimension(:, :), pointer

dlake : real*8, dimension(:, :), pointer

glake : real*8, dimension(:, :), pointer

rsi : real*8, dimension(:, :), pointer

msi : real*8, dimension(:, :), pointer

hsi : real*8, dimension(:, :, :), pointer

ssi : real*8, dimension(:, :, :), pointer

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer