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 ) |
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) && \ |
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 |