IndexRundeck: E6F40Created: Fri May 17 03:30:27 EDT 2024

OCNML

File: OCNML.f
Summary:
Author :
Version:

Subroutines:
alloc_mldepth
alloc_mldepth allocate arrays belonging to the ocnml module
alloc_ohtconv
alloc_ohtconv allocate arrays belonging to the ocnml module
alloc_qfluxes
alloc_qfluxes allocate heat transport arrays belonging to the ocnml module
daily_ocnml
daily_ocnml updates some fourier expansion terms for oht convergence and some diagnostics
init_mldepth
init_mldepth open the ML depth file
init_ocnml
init_OCEAN performs misc ML initialization tasks
init_qfluxes
init_qfluxes reads entire OHT file if fourier format, otherwise only initializes the reading
osourc
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)
ostruc
depths are changed (generally once a day)
precip_ocnml
PRECIP_OC driver for applying precipitation to ocean fraction
read_mldepth
daily_ocnml updates mixed layer depth to the value for the current day
read_mldepth_now
daily_ocnml updates mixed layer depth to the value for the current day
run_ocnml
OCEANS driver for applying surface fluxes to ocean fraction
set_gtemp_ocnml
set_gtemp_sst copies sst into the ocean position in the gtemp array

Global Variables:
timestream : used from timestream_mod

z1o : real*8, allocatable, dimension(:, :)
current ocean mixed layer depth (m) updated once per day
Used by: | :advsi_diag | :conserv_oce |
z12o : real*8, allocatable, dimension(:, :)
annual maximum ocean mixed layer depth (m)
Used by: | :advsi_diag | :conserv_oce |
z1oold : real*8, allocatable, dimension(:, :)
value of Z1O during previous day (m)
fgeotherm : real*8, allocatable, dimension(:, :)
geothermal heat flux (W/m2)
tocean : real*8, allocatable, dimension(:, :, :)
temperature of the ocean (C)
Used by: | :checko | :conserv_oce | :read_annual_cycle_for_ohtconv | :read_sst | SSTMOD:new_io_sstmod | SSTMOD:set_gtemp_sst |
otc : real*8, allocatable, dimension(:, :)
Fourier expansion coefficients of annual cycle of OHT
otc : real*8, allocatable, dimension(:, :)
Fourier expansion coefficients of annual cycle of OHT
otb : real*8, allocatable, dimension(:, :, :)
Fourier expansion coefficients of annual cycle of OHT
old_oht : integer
0: new scheme, 1: old scheme
Initial Value = 1
ota : real*8, allocatable, dimension(:, :, :)

qfluxx : real*8
multiplying factor for qfluxes
Initial Value = 1.
z1ostream : type(timestream)
interface for reading and time-interpolating ML depth file
oht_is_timestream : logical
- controlled by old_oht rundeck parameter
Initial Value = .true.
ohtstream : type(timestream)
interface for reading and time-interpolating OHT file
ohtconv_now : real*8, allocatable, dimension(:, :), public
(W/m2) ocean heat flux convergence for current day
z12o_max : real*8, public
maximal mixed layer depth (m) for qflux model
Initial Value = -1
year1_ohtconv : integer, public
first year of accumulation for ohtconv
Initial Value = 0
Used by: | :alloc_ocean |
z12o_max_rsf : real*8, public
Initial Value = -1
do_ohtconv : logical, public
whether to perform ohtconv accumulation (true if year1_ohtconv set)
Initial Value = .false.
Used by: | :advsi_diag | :alloc_ocean | :daily_ocean | :def_rsf_ocean | :init_ocean | :new_io_ocean | :oceans | :precip_oc | :read_sst | SSTMOD:new_io_sstmod | SSTMOD:set_gtemp_sst |
acctime_ohtconv : real*8, dimension(12), public
(s) number of seconds over which ohtconv has been accumulated
Initial Value = 0.
Used by: | :oceans_ohtconv |
ohtconv : real*8, allocatable, dimension(:, :, :), public
(J/m2) implied time-integrated ocean heat transport convergence
Used by: | :advsi_diag | :oceans_ohtconv | :precip_ohtconv |
ocnht_sv : real*8, allocatable, dimension(:, :), public
(J/m2) instantaneous ML+seaice heat content, used for computing

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS NASA Privacy PolicyAccessibility