/[MITgcm]/MITgcm/pkg/cd_code/cd_code_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/cd_code/cd_code_read_pickup.F

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

revision 1.3 by jmc, Fri Aug 17 19:38:18 2007 UTC revision 1.4 by jmc, Fri Mar 24 23:34:13 2017 UTC
# Line 36  C     !LOCAL VARIABLES: Line 36  C     !LOCAL VARIABLES:
36        INTEGER prec        INTEGER prec
37    
38  C     Suffix for pickup files  C     Suffix for pickup files
39        IF (pickupSuff.EQ.' ') THEN        IF ( pickupSuff.EQ.' ' ) THEN
40           WRITE(suff,'(I10.10)') myIter          IF ( rwSuffixType.EQ.0 ) THEN
41              WRITE(suff,'(I10.10)') myIter
42            ELSE
43              CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid )
44            ENDIF
45        ELSE        ELSE
46           WRITE(suff,'(A10)') pickupSuff          WRITE(suff,'(A10)') pickupSuff
47        ENDIF        ENDIF
48        prec = precFloat64        prec = precFloat64
49    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22