Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
GISS_OTURB | File: OCNGISSVM.f |
Author : AHoward/YCheng
Version:
Subroutines:
- cubic_coeff
- calculates the coefficients of the cubic eqn for gm
a3*gm**3+a2*gm**2+a1*gm+a0=0
- cubic_r
- solves the cubic eqn x**3+a*x**2+b*x+c=0
for a, b, c are real
- gissdiffus
- finds structure functions sm,sh,ss,sc using giss model
- gissmix_init
- creates tables for the giss diffusivities(ri,rr)
gissmix_init is called from routine init_OCEAN in OCNDYN.f
- locatex
- locatex finds the grids that embrace x
after call locatex, the interpreted value can be calculated as
y=a*ya(jl)+b*ya(ju)
Global Variables:
- bv0 :
real*8
- f30 :
real*8
- bv0byf30 :
real*8
- byden :
real*8
- epsbyn2 :
real*8
- q :
real*8
- byzet :
real*8