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

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

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

revision 1.28 by jmc, Mon Jun 8 03:40:42 2009 UTC revision 1.29 by mlosch, Tue Nov 24 14:54:15 2009 UTC
# Line 174  c       CALL MNC_CW_RS_W('D',bfname,0,0, Line 174  c       CALL MNC_CW_RS_W('D',bfname,0,0,
174          _END_MASTER(myThid)          _END_MASTER(myThid)
175    
176        ENDIF        ENDIF
177    
178          IF ( useMNC .AND. (usingCurvilinearGrid .OR. rotateGrid) ) THEN
179    C     If the grid is not simply cartesian, cylindrical or spherical,
180    C     include additional coordinate information to the following files
181           IF ( snapshot_mnc )
182         &      CALL MNC_CW_WRITE_GRID_COORD('state', myThid)
183    #if (defined ALLOW_AUTODIFF) && \
184        (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_ADMTLM)) && \
185        (defined ALLOW_AUTODIFF_MONITOR)
186           IF ( autodiff_mnc ) THEN
187            CALL MNC_CW_WRITE_GRID_COORD('adstate', myThid)
188    #ifdef ALLOW_EXF
189            IF (useEXF) CALL MNC_CW_WRITE_GRID_COORD('adexf',myThid)
190    #endif /* ALLOW_EXF */
191    #ifdef ALLOW_SEAICE
192            IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid)
193    #endif /* ALLOW_SEAICE */
194           ENDIF
195    #endif /* ALLOW_AUTODIFF */
196          ENDIF
197    
198  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
199    
200        RETURN        RETURN
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22