Index

Rundeck: P1SoM40

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

ground_si

Module:

File: SEAICE_DRV.f

Summary: GROUND_SI driver for applying surface + base fluxes to sea ice
Author : Gary Russell/Gavin Schmidt
Version: 2010/11/12

---

Declaration:

subroutine ground_si(si_state, iceocn, atmice, atmocn)

Calls the following subroutines/functions:

sea_ice

Module: SEAICE File: SEAICE.f
SEA_ICE applies surface fluxes to ice covered areas

Variables:

grav : used from constant

rhows : used from constant

rhow : used from constant

seconds_per_day : used from timeconstants_mod

dtsrc : used from model_com

atmice_xchng_vars : used from exchange_types

iceocn_xchng_vars : used from exchange_types

atmocn_xchng_vars : used from exchange_types

icestate : used from seaice_com

sea_ice : used from seaice

ssidec : used from seaice

lmi : used from seaice

xsi : used from seaice

ace1i : used from seaice

qsfix : used from seaice

debug : used from seaice

snowice : used from seaice

snow_ice : used from seaice

rhos : used from seaice

ti : used from seaice

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)

atmice : type(atmice_xchng_vars)

atmocn : type(atmocn_xchng_vars)

hsil : real*8, dimension(lmi)

ssil : real*8, dimension(lmi)

snow : real*8

roice : real*8

msi2 : real*8

f0dt : real*8

f1dt : real*8

evap : real*8

srox : real*8, dimension(2)

fmoc : real*8

fhoc : real*8

fsoc : real*8

poice : real*8

pwater : real*8

scovi : real*8

mflux : real*8

hflux : real*8

sflux : real*8

run : real*8

erun : real*8

srun : real*8

melt12 : real*8

msnwic : real*8

hsnwic : real*8

ssnwic : real*8

sm : real*8

tm : real*8

ti1 : real*8

dsnow : real*8

domain : character(len=8)

i : integer

j : integer

wetsnow : logical

dopoint : logical

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

flag_dsws : logical, dimension(:, :), pointer

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

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

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer