/[MITgcm]/MITgcm/model/src/ini_spherical_polar_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_spherical_polar_grid.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.24 by mlosch, Tue Feb 5 13:32:49 2008 UTC revision 1.25 by mlosch, Fri Feb 8 13:01:25 2008 UTC
# Line 348  C--     Cosine(lat) scaling Line 348  C--     Cosine(lat) scaling
348        IF ( rotateGrid ) THEN        IF ( rotateGrid ) THEN
349         CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid )         CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid )
350         CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid )         CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid )
351           CALL CALC_ANGLES( myThid )
352        ENDIF        ENDIF
353    
354        RETURN        RETURN
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22