Index

Rundeck: P1SoM40

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

precip_si

Module:

File: SEAICE_DRV.f

Summary: PRECIP_SI driver for applying precipitation to sea ice fraction
Author : Original Development team
Version:

---

Declaration:

subroutine precip_si(si_state, iceocn, atmice)

Calls the following subroutines/functions:

prec_si

Module: SEAICE File: SEAICE.f
PREC_SI Adds the precipitation to sea/lake ice

Variables:

teeny : used from constant

grav : used from constant

tf : used from constant

bylhm : used from constant

atmice_xchng_vars : used from exchange_types

iceocn_xchng_vars : used from exchange_types

icestate : used from seaice_com

prec_si : used from seaice

ace1i : used from seaice

lmi : used from seaice

xsi : used from seaice

debug : used from seaice

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

msi2 : real*8

prcp : real*8

enrgp : real*8

run0 : real*8

poice : real*8

srun0 : real*8

erun0 : real*8

domain : character(len=8)

i : integer

j : integer

wetsnow : logical

dopoint : logical

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

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

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

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

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

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