Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
GISSMIX_COM | File: OCNGISSVM.f |
Author : AHoward/YCheng
Version:
Subroutines:
Global Variables:
- im : used from ocean
- jm : used from ocean
- lmo : used from ocean
- omega : used from constant
- by3 : used from constant
- grav : used from constant
- mt :
integer, parameter
- dim of ri in table
Initial Value= 2*mt0
- nt :
integer, parameter
- dim of rr in table
Initial Value= 2*nt0
- mt0 :
integer, parameter
- Initial Value
= 107
- kmin :
real*8, parameter
- min of diffusivities, (m^2/s)
Initial Value= 1d-3
- nt0 :
integer, parameter
- Initial Value
= 54
- kmax :
real*8, parameter
- max of diffusivities, (m^2/s)
Initial Value= 100.
- osocb1 :
real*8, parameter
- Initial Value
= 21.6
- kappa :
real*8, parameter
- Initial Value
= 0.4
- ria :
real*8, dimension(mt)
- ri 1d array of richardson #, for 2d tables
- rra :
real*8, dimension(nt)
- rr 1d array of density ratio,for 2d tables
- gma :
real*8, dimension(mt, nt)
- 2d table for gm=(tau*shear)^2
- sma :
real*8, dimension(mt, nt)
- 2d table for sm=structure fuction for momentum
- sha :
real*8, dimension(mt, nt)
- 2d table for sh=structure fuction for heat
- ssa :
real*8, dimension(mt, nt)
- 2d table for ss=structure fuction for salinity
- sca :
real*8, dimension(mt, nt)
- 2d table for sc=structure fuction for passive scalars
- phim2a :
real*8, dimension(mt, nt)
- 2d table for phim2, used for bottom shear
- rimin :
real*8
- min of richardson # ri
- rimax :
real*8
- max of richardson # ri
- rrmin :
real*8
- min of density ratio rr
- rrmax :
real*8
- max of density ratio rr
- otke :
real*8, allocatable, dimension(:, :, :)
- turbulent kinetic energy in ocean (m/s)^2
- otke_init_max :
real*8, parameter
- maximum initial value of otke (m/s)^2
Initial Value= 0.5d0/800.
- emin :
real*8, parameter
- minimum value of otke (m/s)^2
Initial Value= 1d-6
- emax :
real*8, parameter
- maximum value of otke (m/s)^2
Initial Value= 1000.
- rhobot :
real*8, allocatable, dimension(:, :)
- (:,:) in-situ density at ocean bottom (kg/m^3)
- taubx :
real*8, allocatable, dimension(:, :)
- x component of tau_b, kinematic bottom drag in (m/s)^2
- tauby :
real*8, allocatable, dimension(:, :)
- y component of tau_b, kinematic bottom drag in (m/s)^2
- exya :
real*8, allocatable, dimension(:, :)
- internal tidal energy (w/m^2)
- ut2a :
real*8, allocatable, dimension(:, :)
- unresolved bottom velocity squared (m/s)^2
- idrag :
integer, parameter
- =1: tides produce bottom drag;
Initial Value= 1