/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

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

revision 1.210 by jmc, Sat Apr 5 18:14:50 2008 UTC revision 1.211 by heimbach, Wed Apr 16 20:48:06 2008 UTC
# Line 289  C--   Initialise retired parameters to u Line 289  C--   Initialise retired parameters to u
289        groundAtK1      = .FALSE.        groundAtK1      = .FALSE.
290    
291  C--   Open the parameter file  C--   Open the parameter file
292  #ifdef TARGET_BGL  #if defined (TARGET_BGL) || defined (TARGET_CRAYXT)
293        OPEN(UNIT=scrUnit1,FILE='scratch1',STATUS='UNKNOWN')        OPEN(UNIT=scrUnit1,FILE='scratch1',STATUS='UNKNOWN')
294        OPEN(UNIT=scrUnit2,FILE='scratch2',STATUS='UNKNOWN')        OPEN(UNIT=scrUnit2,FILE='scratch2',STATUS='UNKNOWN')
295  #else  #else
Legend:
Removed from v.1.210  
changed lines
  Added in v.1.211
  ViewVC Help
Powered by ViewVC 1.1.22