Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
geomo | Module: | File: OGEOM.f |
Author : Gary Russell
Version: 2.0
Declaration:
subroutine geomo
- twopi : used from constant
- radius : used from constant
- omega : used from constant
- radian : used from constant
- im : used from ocean
- jm : used from ocean
- dlon : used from ocean
- dlat : used from ocean
- dlatm : used from ocean
- fjeq : used from ocean
- dxyp : used from ocean
- Initial Value
= >DXYPO
- dxyvo : used from ocean
- dxys : used from ocean
- Initial Value
= >DXYSO
- dxyn : used from ocean
- Initial Value
= >DXYNO
- dxp : used from ocean
- Initial Value
= >DXPO
- dyp : used from ocean
- Initial Value
= >DYPO
- dxv : used from ocean
- Initial Value
= >DXVO
- dyv : used from ocean
- Initial Value
= >DYVO
- rlat : used from ocean
- cosv : used from ocean
- Initial Value
= >COSVO
- sinv : used from ocean
- Initial Value
= >SINVO
- sinp : used from ocean
- Initial Value
= >SINPO
- cosp : used from ocean
- Initial Value
= >COSPO
- ramvs : used from ocean
- ramvn : used from ocean
- zdxyp : used from ocean
- Initial Value
= >BYDXYPO
- cosm : used from ocean
- cosq : used from ocean
- sinxy : used from ocean
- tanxy : used from ocean
- dxpgf : used from ocean
- dypgf : used from ocean
- sini : used from ocean
- Initial Value
= >SINIC
- cosi : used from ocean
- Initial Value
= >COSIC
- sinu : used from ocean
- cosu : used from ocean
- j1o : used from ocean
- jmpf : used from ocean
- Initial Value
= >J40S
- imaxj : used from ocean
- odlat_dg : used from ocean
- olat_dg : used from ocean
- odlon_dg : used from ocean
- olon_dg : used from ocean
- oxyp : used from ocean
- olat2d_dg : used from ocean
- halo_update : used from domain_decomp_1d
- ogrid : used from oceanr_dim
- lats :
real*8
- LATitude in radians at South edge of primary cell
- i :
integer*4
- j :
integer*4
- latn :
real*8
- LATitude in radians at North edge of primary cell
- sins :
real*8
- SINe of LATS
- sinn :
real*8
- SINe of LATN
- pcos :
real*8
- = s[cos(LAT)^2 dLAT] / S[cos(LAT) dLAT]
- plat :
real*8, dimension(JM)
- = s[LAT cos(LAT) dLAT] / S[cos(LAT) dLAT]
- j_0 :
integer
- j_1 :
integer