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

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

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

revision 1.6 by mlosch, Mon Feb 25 20:57:24 2008 UTC revision 1.7 by jmc, Thu Jun 7 17:10:28 2012 UTC
# Line 57  C     msgBuf     :: message buffer Line 57  C     msgBuf     :: message buffer
57        LOGICAL permPickup, tempPickup        LOGICAL permPickup, tempPickup
58        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
59        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
60          _RL zeroRL
61          PARAMETER( zeroRL = 0. _d 0 )
62    
63        permPickup = .FALSE.        permPickup = .FALSE.
64        tempPickup = .FALSE.        tempPickup = .FALSE.
# Line 67  C     msgBuf     :: message buffer Line 69  C     msgBuf     :: message buffer
69    
70  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
71        IF ( useCAL ) THEN        IF ( useCAL ) THEN
72           CALL CAL_TIME2DUMP( pChkPtFreq, deltaTClock,           CALL CAL_TIME2DUMP( zeroRL, pChkPtFreq, deltaTClock,
73       U                       permPickup,       U                       permPickup,
74       I                       myTime, myIter, myThid )       I                       myTime, myIter, myThid )
75           CALL CAL_TIME2DUMP( chkPtFreq,  deltaTClock,           CALL CAL_TIME2DUMP( zeroRL, chkPtFreq,  deltaTClock,
76       U                       tempPickup,       U                       tempPickup,
77       I                       myTime, myIter, myThid )       I                       myTime, myIter, myThid )
78        ENDIF        ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22