Changeset 440


Ignore:
Timestamp:
06/17/16 21:58:58 (8 years ago)
Author:
ymipsl
Message:

Schmidt transform was broken

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/spherical_geom.f90

    r247 r440  
    5151  zz = sin(lat) 
    5252  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)*yy 
     53  xyz(2) = sin(lon0)*(sin(lat0)*xx+cos(lat0)*zz)+cos(lon0)*yy 
    5454  xyz(3) = sin(lat0)*zz-cos(lat0)*xx 
    5555END SUBROUTINE lonlat2xyz_relative 
Note: See TracChangeset for help on using the changeset viewer.