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

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

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

revision 1.43 by jmc, Tue May 12 19:54:28 2009 UTC revision 1.44 by mlosch, Mon May 25 09:48:09 2009 UTC
# Line 396  C-    Tile Id number = Bi + (Bj-1)*(nSx* Line 396  C-    Tile Id number = Bi + (Bj-1)*(nSx*
396    
397  #endif /* OLD_GRID_IO */  #endif /* OLD_GRID_IO */
398    
399    C--   Calculate (sines and cosines of) angles of grid north with
400    C--   geographical north when they have not been read from a file
401          IF ( .NOT.anglesAreSet ) THEN
402           CALL CALC_ANGLES( myThid )
403           anglesAreSet = .TRUE.
404    C--   Exchange the newly computed fields
405           CALL EXCH_UV_AGRID_3D_RS(angleSinC,angleCosC,.TRUE., 1, myThid)
406          ENDIF
407  C--   Stop if Angle have not been loaded but are needed :  C--   Stop if Angle have not been loaded but are needed :
408        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
409        IF ( .NOT.anglesAreSet .AND. use3dCoriolis ) THEN        IF ( .NOT.anglesAreSet .AND. use3dCoriolis ) THEN
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22