/[MITgcm]/MITgcm/pkg/regrid/regrid_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/regrid/regrid_readparms.F

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

revision 1.2 by jmc, Wed May 28 00:13:16 2014 UTC revision 1.3 by mlosch, Wed Aug 9 15:23:36 2017 UTC
# Line 80  C     Read parameters from open data fil Line 80  C     Read parameters from open data fil
80        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
81       &     SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
82  C     Close the open data file  C     Close the open data file
83    #ifdef SINGLE_DISK_IO
84        CLOSE(iUnit)        CLOSE(iUnit)
85    #else
86          CLOSE(iUnit,STATUS='DELETE')
87    #endif /* SINGLE_DISK_IO */
88    
89  C     Make sure that we locally honor the global MNC on/off flag  C     Make sure that we locally honor the global MNC on/off flag
90        REGRID_MNC = REGRID_MNC .AND. useMNC        REGRID_MNC = REGRID_MNC .AND. useMNC
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22