/[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.33 by jmc, Sun Apr 6 21:14:13 2008 UTC revision 1.34 by jmc, Tue Aug 5 22:02:23 2008 UTC
# Line 160  C     Write restart file for GCHEM pkg & Line 160  C     Write restart file for GCHEM pkg &
160        ENDIF        ENDIF
161  #endif  #endif
162    
163    #ifdef ALLOW_CHEAPAML
164    C     Write restart file for CHEAPAML pkg
165          IF ( useCheapAML ) THEN
166             CALL CHEAPAML_WRITE_PICKUP( permPickup,
167         I                      suffix, myTime, myIter, myThid)
168           ENDIF
169    #endif /* ALLOW_CHEAPAML */
170    
171  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
172        IF (useMYPACKAGE) THEN        IF (useMYPACKAGE) THEN
173          CALL MYPACKAGE_WRITE_PICKUP( permPickup,          CALL MYPACKAGE_WRITE_PICKUP( permPickup,
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22