/[MITgcm]/MITgcm/eesupp/src/eeset_parms.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eeset_parms.F

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

revision 1.25 by jmc, Tue Apr 21 16:01:31 2009 UTC revision 1.26 by jmc, Mon Jul 13 21:41:57 2009 UTC
# Line 44  C     record :: Temp. for textual I/O Line 44  C     record :: Temp. for textual I/O
44        INTEGER iUnit        INTEGER iUnit
45        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
46        CHARACTER*(MAX_LEN_PREC) record        CHARACTER*(MAX_LEN_PREC) record
47    #if defined (TARGET_BGL) || defined (TARGET_CRAYXT)
48          CHARACTER*(MAX_LEN_FNAM) scratchFile1
49          CHARACTER*(MAX_LEN_FNAM) scratchFile2
50    #endif
51    CEOP
52    
53        NAMELIST /EEPARMS/        NAMELIST /EEPARMS/
54       & nTx, nTy, usingMPI, useCoupler, useCubedSphereExchange,       & nTx, nTy, usingMPI, useCoupler, useCubedSphereExchange,
55       & useSETRLSTK, useSIGREG,       & useSETRLSTK, useSIGREG,
56       & printMapIncludesZeros, maxLengthPrt1D       & printMapIncludesZeros, maxLengthPrt1D
 CEOP  
57    
58    
59  C--   For now these options are fixed as the code does  C--   For now these options are fixed as the code does
# Line 109  C     package - but we have not written Line 114  C     package - but we have not written
114    
115  C     Make scratch copies of input data file with and without comments  C     Make scratch copies of input data file with and without comments
116  #if defined (TARGET_BGL) || defined (TARGET_CRAYXT)  #if defined (TARGET_BGL) || defined (TARGET_CRAYXT)
117        OPEN(UNIT=scrUnit1,FILE='scratch1',STATUS='UNKNOWN')        WRITE(scratchFile1,'(A,I4.4)') 'scratch1.', myProcId
118        OPEN(UNIT=scrUnit2,FILE='scratch2',STATUS='UNKNOWN')        WRITE(scratchFile2,'(A,I4.4)') 'scratch2.', myProcId
119          OPEN(UNIT=scrUnit1, FILE=scratchFile1, STATUS='UNKNOWN')
120          OPEN(UNIT=scrUnit2, FILE=scratchFile2, STATUS='UNKNOWN')
121  #else  #else
122        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')        OPEN(UNIT=scrUnit1,STATUS='SCRATCH')
123        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')        OPEN(UNIT=scrUnit2,STATUS='SCRATCH')
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22