Index

Rundeck: P1SoM40

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

advsi

Module:

File: ICEDYN_DRV.f

Summary: ADVSI advects sea ice Currently set up to advect ice on AGCM grid (i.e. usidt/vsidt are on the AGCM grid, and RSI/MSI/HSI etc. are unchanged) At some point this will change (USIDT/VSIDT on ice grid, and RSI etc. will need to be interpolated back and forth).
Author : Gary Russell/Gavin Schmidt
Version:

---

Declaration:

subroutine advsi(atmice)

Variables:

grav : used from constant

tf : used from constant

kocean : used from model_com

dts : used from model_com

Initial Value = >dtsrc

getdomainbounds : used from domain_decomp_1d

halo_update : used from domain_decomp_1d

south : used from domain_decomp_1d

north : used from domain_decomp_1d

halo_update_column : used from domain_decomp_1d

hasnorthpole : used from domain_decomp_1d

hassouthpole : used from domain_decomp_1d

dxyp : used from icedyn

dyp : used from icedyn

dxp : used from icedyn

dxv : used from icedyn

bydxyp : used from icedyn

ace1i : used from seaice

xsi : used from seaice

ti : used from seaice

ei : used from seaice

si_ocn : used from seaice_com

lmi : used from seaice_com

atmice_xchng_vars : used from exchange_types

vsidt : real*8, dimension(:, :), allocatable

sea ice fluxes, saved for advection (m)

usidt : real*8, dimension(:, :), allocatable

sea ice fluxes, saved for advection (m)

atmice : type(atmice_xchng_vars)

ntrice : integer

max. number of tracers to be advected (mass/heat/salt+)

fmsi : real*8, dimension(:, :), allocatable

fasi : real*8, dimension(:, :), allocatable

fxsi : real*8, dimension(:, :), allocatable

fysi : real*8, dimension(:, :), allocatable

faw : real*8, dimension(:, :), allocatable

byfoa : real*8, dimension(:, :), allocatable

mhs : real*8, dimension(:, :, :), allocatable

mass/heat/salt content of sea ice

sfmsi : real*8, allocatable, dimension(:)

amsi : real*8, allocatable, dimension(:)

fmsj : real*8, dimension(:, :, :), allocatable

i : integer

j : integer

l : integer

im1 : integer

ip1 : integer

k : integer

sfasi : real*8

dmhsi : real*8

asi : real*8

yrsi : real*8

xrsi : real*8

frsi : real*8

sice : real*8

tmp : real*8

tice : real*8

enrg : real*8

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

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

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

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

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

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

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

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

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

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

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

im : integer

jm : integer

j_0 : integer

j_1 : integer

j_0s : integer

j_1s : integer

j_0h : integer

j_1h : integer

have_north_pole : logical

have_south_pole : logical