Changeset 440 for codes/icosagcm/trunk
- Timestamp:
- 06/17/16 21:58:58 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/spherical_geom.f90
r247 r440 51 51 zz = sin(lat) 52 52 xyz(1) = cos(lon0)*(sin(lat0)*xx+cos(lat0)*zz)-sin(lon0)*yy 53 xyz(2) = sin(lon0)*(sin(lat0)* yy+cos(lat0)*zz)+cos(lon0)*yy53 xyz(2) = sin(lon0)*(sin(lat0)*xx+cos(lat0)*zz)+cos(lon0)*yy 54 54 xyz(3) = sin(lat0)*zz-cos(lat0)*xx 55 55 END SUBROUTINE lonlat2xyz_relative
Note: See TracChangeset
for help on using the changeset viewer.