/[MITgcm]/MITgcm/pkg/bbl/bbl_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/bbl/bbl_read_pickup.F

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

revision 1.1 by dimitri, Sat Aug 6 03:13:22 2011 UTC revision 1.2 by jmc, Fri Mar 24 23:34:13 2017 UTC
# Line 45  C     msgBuf      :: Informational/error Line 45  C     msgBuf      :: Informational/error
45        INTEGER missFldDim, nMissing        INTEGER missFldDim, nMissing
46        INTEGER j, nj, ioUnit        INTEGER j, nj, ioUnit
47        PARAMETER( missFldDim = 3 )        PARAMETER( missFldDim = 3 )
48          CHARACTER*(10) suff
49        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
50        CHARACTER*(8) missFldList(missFldDim)        CHARACTER*(8) missFldList(missFldDim)
51        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 53  CEOP Line 54  CEOP
54  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
55    
56         IF ( pickupSuff.EQ.' ' ) THEN         IF ( pickupSuff.EQ.' ' ) THEN
57          WRITE(fn,'(A,I10.10)') 'pickup_bbl.',myIter          IF ( rwSuffixType.EQ.0 ) THEN
58              WRITE(fn,'(A,I10.10)') 'pickup_bbl.', myIter
59            ELSE
60              CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid )
61              WRITE(fn,'(A,A)') 'pickup_bbl.', suff
62            ENDIF
63         ELSE         ELSE
64          WRITE(fn,'(A,A10)')    'pickup_bbl.',pickupSuff          WRITE(fn,'(A,A10)') 'pickup_bbl.', pickupSuff
65         ENDIF         ENDIF
66         fp = precFloat64         fp = precFloat64
67    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22