/[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.1 by jmc, Sun Jan 27 20:52:11 2008 UTC revision 1.2 by jmc, Sun Jun 14 21:26:03 2009 UTC
# Line 51  C     msgBuf      :: Informational/error Line 51  C     msgBuf      :: Informational/error
51        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
52  CEOP  CEOP
53    
       _BARRIER  
   
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
# Line 189  C-      Assume Agrid position: Line 187  C-      Assume Agrid position:
187  #endif /* MYPACKAGE_2D_STATE */  #endif /* MYPACKAGE_2D_STATE */
188    
189  #endif /* MYPACKAGE_3D_STATE or MYPACKAGE_3D_STATE */  #endif /* MYPACKAGE_3D_STATE or MYPACKAGE_3D_STATE */
190  #endif /* ALLOW_ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
191    
192        RETURN        RETURN
193        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22