/[MITgcm]/MITgcm/pkg/cal/cal_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_readparms.F

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

revision 1.6 by heimbach, Mon May 23 19:28:44 2005 UTC revision 1.7 by heimbach, Sun May 29 17:49:39 2005 UTC
# Line 116  c       Initialise the calendar paramete Line 116  c       Initialise the calendar paramete
116          enddate_1   = 0          enddate_1   = 0
117          enddate_2   = 0          enddate_2   = 0
118    
         open(unit=scrunit1,status='scratch')  
   
119  c       Next, read the calendar data file.  c       Next, read the calendar data file.
120          WRITE(msgBuf,'(A)') 'CAL_READPARMS: opening data.cal'          WRITE(msgBuf,'(A)') 'CAL_READPARMS: opening data.cal'
121          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22