/[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.7 by jmc, Thu Jun 7 17:10:28 2012 UTC revision 1.8 by jmc, Mon Aug 6 16:54:40 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
       _RL zeroRL  
       PARAMETER( zeroRL = 0. _d 0 )  
60    
61        permPickup = .FALSE.        permPickup = .FALSE.
62        tempPickup = .FALSE.        tempPickup = .FALSE.
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22