/[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.24 by jmc, Wed Oct 25 20:42:34 2006 UTC revision 1.25 by jmc, Tue Jan 16 04:40:05 2007 UTC
# Line 64  C     Create suffix to pass on to packag Line 64  C     Create suffix to pass on to packag
64          WRITE(fn,'(A)') checkPtSuff(nCheckLev)          WRITE(fn,'(A)') checkPtSuff(nCheckLev)
65        ENDIF        ENDIF
66    
67    #ifdef ALLOW_GENERIC_ADVDIFF
68    C     Write restart file for 2nd-Order moment (active) Tracers
69          IF ( useGAD ) THEN
70            CALL GAD_WRITE_PICKUP(
71         I                 fn, myTime, myIter, myThid )
72          ENDIF
73    #endif /* ALLOW_GENERIC_ADVDIFF */
74    
75  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
76        IF (useCDscheme) THEN        IF (useCDscheme) THEN
77          CALL CD_CODE_WRITE_PICKUP(          CALL CD_CODE_WRITE_PICKUP(
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22