/[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.30 by mlosch, Fri Dec 4 15:08:23 2009 UTC revision 1.31 by jmc, Thu Dec 17 23:48:26 2009 UTC
# Line 100  C     Write 3D geometry arrays Line 100  C     Write 3D geometry arrays
100          CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS, 0,myThid)          CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS, 0,myThid)
101          IF (buoyancyRelation .EQ. 'ATMOSPHERIC')          IF (buoyancyRelation .EQ. 'ATMOSPHERIC')
102       &     CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,-1,myThid)       &     CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,-1,myThid)
103            IF ( useOBCS ) THEN
104              CALL WRITE_FLD_XY_RS( 'maskInC',' ', maskInC, -1, myThid )
105              CALL WRITE_FLD_XY_RS( 'maskInW',' ', maskInW, -1, myThid )
106              CALL WRITE_FLD_XY_RS( 'maskInS',' ', maskInS, -1, myThid )
107            ENDIF
108    
109  C     Write vertical grid arrays  C     Write vertical grid arrays
110          CALL WRITE_GLVEC_RS( 'RC', ' ', rC,  Nr, -1, myThid )          CALL WRITE_GLVEC_RS( 'RC', ' ', rC,  Nr, -1, myThid )
# Line 177  c       CALL MNC_CW_RS_W('D',bfname,0,0, Line 182  c       CALL MNC_CW_RS_W('D',bfname,0,0,
182    
183        IF ( useMNC .AND. (usingCurvilinearGrid .OR. rotateGrid) ) THEN        IF ( useMNC .AND. (usingCurvilinearGrid .OR. rotateGrid) ) THEN
184  C     If the grid is not simply cartesian, cylindrical or spherical,  C     If the grid is not simply cartesian, cylindrical or spherical,
185  C     include additional coordinate information to the following files  C     include additional coordinate information to the following files
186         IF ( snapshot_mnc .AND.         IF ( snapshot_mnc .AND.
187       &      ( dumpFreq .GT. 0. .OR. dumpInitAndLast ) )       &      ( dumpFreq .GT. 0. .OR. dumpInitAndLast ) )
188       &      CALL MNC_CW_WRITE_GRID_COORD('state', myThid)       &      CALL MNC_CW_WRITE_GRID_COORD('state', myThid)
189  #if (defined ALLOW_AUTODIFF) && \  #if (defined ALLOW_AUTODIFF) && \
# Line 189  C     include additional coordinate info Line 194  C     include additional coordinate info
194  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
195          IF (useEXF) CALL MNC_CW_WRITE_GRID_COORD('adexf',myThid)          IF (useEXF) CALL MNC_CW_WRITE_GRID_COORD('adexf',myThid)
196  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
197  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
198          IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid)          IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid)
199  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
200         ENDIF         ENDIF
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22