Index

Rundeck: P1SoM40

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

read_seaice

Module:

File: SEAICE_DRV.f

Summary: read_seaice reads sea ice concentration (+thickness if provided), adjusts ice heat/salt/tracers for conservation purposes, and updates diagnostics This version is based on the timestream module for netcdf files.
Author : M. Kelley restructuring and netcdf-based input options
Version: beta

---

Declaration:

subroutine read_seaice(end_of_day, atmocn, atmice)

Variables:

tf : used from constant

rhoi : used from constant

itime : used from model_com

itimei : used from model_com

modeleclock : used from model_com

rsistream : used from seaice_com

zsistream : used from seaice_com

xsi : used from seaice

ace1i : used from seaice

ac2oim : used from seaice

ssi0 : used from seaice

tfrez : used from seaice

lmi : used from seaice

ei : used from seaice

rsi_exists : used from seaice_com

zsi_exists : used from seaice_com

dm : used from seaice_com

z1i : used from seaice

z2oim : used from seaice

fleadoc : used from seaice

read_stream : used from timestream_mod

si_ocn : used from seaice_com

grid : used from seaice_com

Initial Value = >sigrid

atmocn_xchng_vars : used from exchange_types

atmice_xchng_vars : used from exchange_types

end_of_day : logical

atmocn : type(atmocn_xchng_vars)

atmice : type(atmice_xchng_vars)

n : integer

i : integer

j : integer

jr : integer

tfo : real*8

msirat : real*8

rsimsi : real*8

rsimsiold : real*8

drsi : real*8

zimin : real*8

zimax : real*8

rsinew : real*8

msinew : real*8

opnocn : real*8

tlim : real*8, dimension(2, grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

zsi : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

ij_smfx : integer

ij_fwio : integer

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

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

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

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

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

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

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

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

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer

have_north_pole : logical

have_south_pole : logical

msiold : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

rsiold : real*8, dimension(grid%i_strt_halo:grid%i_stop_halo, grid%j_strt_halo:grid%j_stop_halo)

jyear : integer

jday : integer

itocean : integer

itoice : integer

j_implh : integer

j_implm : integer