Index

Rundeck: E6F40

Created: Fri May 17 03:30:27 EDT 2024

run_ocnml

Module: OCNML

File: OCNML.f

Summary: OCEANS driver for applying surface fluxes to ocean fraction
Author : Original Development Team
Version: 1.0

---

Declaration:

subroutine run_ocnml(atmocn, atmice, iceocn)

Calls the following subroutines/functions:

osourc

Module: OCNML File: OCNML.f
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)

Variables:

rhows : used from constant

shw : used from constant

tf : used from constant

kocean : used from model_com

dtsrc : used from model_com

itocean : used from diag_com

itoice : used from diag_com

jreg : used from diag_com

j_implm : used from diag_com

j_implh : used from diag_com

j_oht : used from diag_com

ssi0 : used from seaice

tfrez : used from seaice

si_ocn : used from seaice_com

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

am_i_root : used from domain_decomp_atm

atmocn_xchng_vars : used from exchange_types

atmice_xchng_vars : used from exchange_types

iceocn_xchng_vars : used from exchange_types

atmocn : type(atmocn_xchng_vars)

atmice : type(atmice_xchng_vars)

iceocn : type(iceocn_xchng_vars)

pocean : real*8

poice : real*8

tfo : real*8

tgw : real*8

wtro : real*8

smsi : real*8

roice : real*8

evapo : real*8

evapi : real*8

fidt : real*8

fodt : real*8

otdt : real*8

rvrrun : real*8

rvrerun : real*8

run0 : real*8

erun4i : real*8

erun4o : real*8

run4i : real*8

run4o : real*8

enrgfo : real*8

acefo : real*8

acefi : real*8

enrgfi : real*8

wtrw : real*8

focean : real*8

i : integer

j : integer

jr : integer

j_0 : integer

j_1 : integer

i_0 : integer

i_1 : integer

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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