Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
gissdiffus | Module: GISS_OTURB | File: OCNGISSVM.f |
Author : AHoward/YCheng
Version:
Declaration:
subroutine gissdiffus( ri, rr, gm, sm, sh, ss, sc)
- ri :
real*8
- rr :
real*8
- gm :
real*8
- sm :
real*8
- sh :
real*8
- ss :
real*8
- sc :
real*8
- pi1 :
real*8
- pi2 :
real*8
- pi3 :
real*8
- pi4 :
real*8
- pi5 :
real*8
- a3 :
real*8
- a2 :
real*8
- a1 :
real*8
- a0 :
real*8
- p1 :
real*8
- p2 :
real*8
- tmp :
real*8
- a :
real*8
- b :
real*8
- c :
real*8
- x1r :
real*8
- x2r :
real*8
- x3r :
real*8
- x1i :
real*8
- x2i :
real*8
- x3i :
real*8
- omrr :
real*8
- gh :
real*8
- gr :
real*8
- q :
real*8
- p :
real*8
- bygam :
real*8
- xx :
real*8
- am :
real*8
- ah :
real*8
- as :
real*8
- ac :
real*8
- ar :
real*8
- w2byk :
real*8
- x1 :
complex*16
- x2 :
complex*16
- x3 :
complex*16