Index

Rundeck: E6F40

Created: Thu May 16 03:30:27 EDT 2024

osourc

Module: OCNML

File: OCNML.f

Summary: OSOURC applies fluxes to ocean in ice-covered and ice-free areas ACEFO/I are the freshwater ice amounts, ENRGFO/I is total energy (including a salt component)
Author : Gary Russell
Version: 1.0

---

Declaration:

subroutine osourc (i, j, roice, smsi, tgw, wtro, otdt, run0, fodt, fidt, rvrrun, rvrerun, evapo, evapi, tfw, wtrw, run4o, erun4o, run4i, erun4i, enrgfo, acefo, acefi, enrgfi)

Variables:

shw : used from constant

rhows : used from constant

ssi0 : used from seaice

ei : used from seaice

dtsrc : used from model_com

aij : used from diag_com

Initial Value = >aij_loc

ij_geotherm : used from diag_com

j : integer, intent(in)

gridpoint ID

i : integer, intent(in)

gridpoint ID

tfw : real*8, intent(in)

freezing temperature for water underlying ice (C)

tgw : real*8, intent(inout)

mixed layer temp.(C)

roice : real*8, intent(in)

smsi : real*8, intent(in)

evapo : real*8, intent(in)

evapi : real*8, intent(in)

run0 : real*8, intent(in)

fodt : real*8, intent(in)

fidt : real*8, intent(in)

rvrrun : real*8, intent(in)

rvrerun : real*8, intent(in)

enrgfo : real*8, intent(out)

acefo : real*8, intent(out)

enrgfi : real*8, intent(out)

acefi : real*8, intent(out)

run4o : real*8, intent(out)

run4i : real*8, intent(out)

erun4o : real*8, intent(out)

erun4i : real*8, intent(out)

wtrw : real*8, intent(out)

wtro : real*8, intent(out)

otdt : real*8, intent(out)

eiw0 : real*8

enrgiw : real*8

wtri1 : real*8

efiw : real*8

enrgo0 : real*8

eofrz : real*8

enrgo : real*8

emin : real*8, parameter

min energy deficit required before ice forms (J/m^2)
Initial Value = -1d-10

wtrw0 : real*8

enrgw0 : real*8

enrgw : real*8

wtri0 : real*8

smsi0 : real*8