/[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.8 by jmc, Mon Aug 6 16:54:40 2012 UTC revision 1.9 by jmc, Tue Aug 20 20:22:35 2013 UTC
# Line 85  C-    write a pickup for each package wh Line 85  C-    write a pickup for each package wh
85       I                permPickup, myTime, myIter, myThid )       I                permPickup, myTime, myIter, myThid )
86    
87  C-    write main model pickup  C-    write main model pickup
88          IF ( .NOT.useOffLine ) THEN          IF ( .NOT.useOffLine .OR. nonlinFreeSurf.GT.0 ) THEN
89             CALL WRITE_PICKUP(             CALL WRITE_PICKUP(
90       I                permPickup, myTime, myIter, myThid )       I                permPickup, myTime, myIter, myThid )
91          ENDIF          ENDIF
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22