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 |