/[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.29 by mlosch, Tue Nov 24 14:54:15 2009 UTC revision 1.30 by mlosch, Fri Dec 4 15:08:23 2009 UTC
# Line 178  c       CALL MNC_CW_RS_W('D',bfname,0,0, Line 178  c       CALL MNC_CW_RS_W('D',bfname,0,0,
178        IF ( useMNC .AND. (usingCurvilinearGrid .OR. rotateGrid) ) THEN        IF ( useMNC .AND. (usingCurvilinearGrid .OR. rotateGrid) ) THEN
179  C     If the grid is not simply cartesian, cylindrical or spherical,  C     If the grid is not simply cartesian, cylindrical or spherical,
180  C     include additional coordinate information to the following files  C     include additional coordinate information to the following files
181         IF ( snapshot_mnc )         IF ( snapshot_mnc .AND.
182         &      ( dumpFreq .GT. 0. .OR. dumpInitAndLast ) )
183       &      CALL MNC_CW_WRITE_GRID_COORD('state', myThid)       &      CALL MNC_CW_WRITE_GRID_COORD('state', myThid)
184  #if (defined ALLOW_AUTODIFF) && \  #if (defined ALLOW_AUTODIFF) && \
185      (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_ADMTLM)) && \      (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_ADMTLM)) && \
186      (defined ALLOW_AUTODIFF_MONITOR)      (defined ALLOW_AUTODIFF_MONITOR)
187         IF ( autodiff_mnc ) THEN         IF ( autodiff_mnc .AND. adjDumpFreq .GT. 0. ) THEN
188          CALL MNC_CW_WRITE_GRID_COORD('adstate', myThid)          CALL MNC_CW_WRITE_GRID_COORD('adstate', myThid)
189  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
190          IF (useEXF) CALL MNC_CW_WRITE_GRID_COORD('adexf',myThid)          IF (useEXF) CALL MNC_CW_WRITE_GRID_COORD('adexf',myThid)
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22