Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

form_si

Module:

File: SEAICE_DRV.f

Summary: FORM_SI driver for adding new sea ice
Author : Original Development team
Version:

---

Declaration:

subroutine form_si(si_state, iceocn, atmice)

Calls the following subroutines/functions:

addice

Module: SEAICE File: SEAICE.f
ADDICE adds ice formed in the ocean to ice variables

Variables:

tf : used from constant

kocean : used from model_com

ace1i : used from seaice

addice : used from seaice

lmi : used from seaice

fleadoc : used from seaice

fleadlk : used from seaice

xsi : used from seaice

debug : used from seaice

icestate : used from seaice_com

iceocn_xchng_vars : used from exchange_types

atmice_xchng_vars : used from exchange_types

si_state : type(icestate)

iceocn : type(iceocn_xchng_vars)

atmice : type(atmice_xchng_vars)

hsil : real*8, dimension(lmi)

tsil : real*8, dimension(lmi)

ssil : real*8, dimension(lmi)

snow : real*8

roice : real*8

msi2 : real*8

enrgfo : real*8

acefo : real*8

acefi : real*8

enrgfi : real*8

salto : real*8

salti : real*8

poice : real*8

pwater : real*8

flead : real*8

pocean : real*8

dmimp : real*8

dhimp : real*8

dsimp : real*8

domain : character(len=8)

qfixr : logical

dopoint : logical

i : integer

j : integer

n : integer

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

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

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

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

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

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

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

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

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

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

snowi : 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