/[MITgcm]/MITgcm/pkg/mypackage/mypackage_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_read_pickup.F

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

revision 1.5 by jmc, Tue Apr 3 00:20:14 2012 UTC revision 1.6 by jmc, Fri Mar 24 23:38:57 2017 UTC
# Line 46  C     msgBuf      :: Informational/error Line 46  C     msgBuf      :: Informational/error
46        INTEGER missFldDim, nMissing        INTEGER missFldDim, nMissing
47        INTEGER j, nj, ioUnit        INTEGER j, nj, ioUnit
48        PARAMETER( missFldDim = 12 )        PARAMETER( missFldDim = 12 )
49          CHARACTER*(10) suff
50        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
51        CHARACTER*(8) missFldList(missFldDim)        CHARACTER*(8) missFldList(missFldDim)
52        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 54  CEOP Line 55  CEOP
55  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
56    
57         IF ( pickupSuff.EQ.' ' ) THEN         IF ( pickupSuff.EQ.' ' ) THEN
58          WRITE(fn,'(A,I10.10)') 'pickup_mypackage.',myIter          IF ( rwSuffixType.EQ.0 ) THEN
59              WRITE(fn,'(A,I10.10)') 'pickup_mypackage.', myIter
60            ELSE
61              CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid )
62              WRITE(fn,'(A,A)') 'pickup_mypackage.', suff
63            ENDIF
64         ELSE         ELSE
65          WRITE(fn,'(A,A10)')    'pickup_mypackage.',pickupSuff          WRITE(fn,'(A,A10)') 'pickup_mypackage.', pickupSuff
66         ENDIF         ENDIF
67         fp = precFloat64         fp = precFloat64
68    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22