/[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.2 by jscott, Wed Sep 6 15:30:25 2006 UTC revision 1.3 by jmc, Wed Sep 6 18:15:57 2006 UTC
# Line 87  C-    write a pickup for each package wh Line 87  C-    write a pickup for each package wh
87       I                permPickup, myTime, myIter, myThid )       I                permPickup, myTime, myIter, myThid )
88    
89  C-    write main model pickup  C-    write main model pickup
90          IF ( .NOT.useOffLine .AND. .NOT.useATM2D ) THEN          IF ( .NOT.useOffLine ) THEN
91             CALL WRITE_PICKUP(             CALL WRITE_PICKUP(
92       I                permPickup, myTime, myIter, myThid )       I                permPickup, myTime, myIter, myThid )
93          ENDIF          ENDIF
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22