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

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

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

revision 1.8 by molod, Wed Aug 18 15:56:05 2004 UTC revision 1.9 by mlosch, Thu Sep 16 09:35:10 2004 UTC
# Line 196  C     Write pickup file for fizhi packag Line 196  C     Write pickup file for fizhi packag
196        ENDIF        ENDIF
197  #endif  #endif
198    
199    #ifdef  ALLOW_GGL90
200          IF ( useGGL90 ) THEN
201            CALL GGL90_WRITE_CHECKPOINT(
202         &       prec, lgf, permCheckPoint, myIter, myThid)
203          ENDIF
204    #endif  /* ALLOW_GGL90 */
205    
206         _END_MASTER( myThid )         _END_MASTER( myThid )
207         _BARRIER         _BARRIER
208    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22