/[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.23 by jmc, Wed Jul 13 00:36:01 2005 UTC revision 1.24 by mlosch, Tue Feb 5 13:32:49 2008 UTC
# Line 345  C--     Cosine(lat) scaling Line 345  C--     Cosine(lat) scaling
345         ENDDO ! bi         ENDDO ! bi
346        ENDDO ! bj        ENDDO ! bj
347    
348          IF ( rotateGrid ) THEN
349           CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid )
350           CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid )
351          ENDIF
352    
353        RETURN        RETURN
354        END        END
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22