Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
cubic_coeff | Module: GISS_OTURB | File: OCNGISSVM.f |
Author : AHoward/YCheng
Version:
Declaration:
subroutine cubic_coeff( ri, rr, pi1, pi2, pi3, pi4, pi5, a3, a2, a1, a0 )
- ri :
real*8
- rr :
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
- sgmt0 :
real*8
- b :
real*8
- rrsy :
real*8
- tmp :
real*8
- aa1 :
real*8
- aa2 :
real*8
- aa3 :
real*8
- aa4 :
real*8
- aa5 :
real*8
- aa6 :
real*8
- pi10 :
real*8
- pi20 :
real*8
- pi30 :
real*8
- pi40 :
real*8
- pi50 :
real*8