Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
run_ocnml | Module: OCNML | File: OCNML.f |
Author : Original Development Team
Version: 1.0
Declaration:
subroutine run_ocnml(atmocn, atmice, iceocn)
- 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)
- 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
- trsi0 : used from oldtracer_mod
- 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
- dtrsi :
real*8, dimension(:, :, :, :), pointer