/[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.23 by jmc, Thu Aug 24 01:10:35 2006 UTC revision 1.24 by jmc, Wed Oct 25 20:42:34 2006 UTC
# Line 66  C     Create suffix to pass on to packag Line 66  C     Create suffix to pass on to packag
66    
67  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
68        IF (useCDscheme) THEN        IF (useCDscheme) THEN
69          CALL CD_CODE_WRITE_CHECKPOINT(          CALL CD_CODE_WRITE_PICKUP(
70       &       prec, lgf, permPickup, myIter, myThid)       &       prec, lgf, permPickup, myIter, myThid)
71        ENDIF        ENDIF
72  #endif /* ALLOW_CD_CODE */  #endif /* ALLOW_CD_CODE */
# Line 142  C     Write pickup file for diagnostics Line 142  C     Write pickup file for diagnostics
142  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
143  C     Write restart file for passive tracers  C     Write restart file for passive tracers
144        IF (usePTRACERS) THEN        IF (usePTRACERS) THEN
145          CALL PTRACERS_WRITE_CHECKPOINT(permPickup,          CALL PTRACERS_WRITE_PICKUP(permPickup,
146       &       fn,myIter,myTime,myThid)       &       fn,myIter,myTime,myThid)
147        ENDIF        ENDIF
148  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22