/[MITgcm]/MITgcm/pkg/atm_compon_interf/cpl_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/cpl_readparms.F

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

revision 1.12 by jmc, Wed Jan 6 00:45:23 2016 UTC revision 1.13 by mlosch, Wed Aug 9 15:23:39 2017 UTC
# Line 106  C-    Parameters for coupling interface: Line 106  C-    Parameters for coupling interface:
106        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
107    
108  C--   Close the open data file  C--   Close the open data file
109    #ifdef SINGLE_DISK_IO
110        CLOSE(iUnit)        CLOSE(iUnit)
111    #else
112          CLOSE(iUnit,STATUS='DELETE')
113    #endif /* SINGLE_DISK_IO */
114    
115  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
116  C--   Check for retired parameters:  C--   Check for retired parameters:
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22