/[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.1 by jmc, Thu Aug 24 01:08:34 2006 UTC revision 1.5 by jmc, Tue Dec 4 23:43:37 2007 UTC
# Line 32  C     !USES: Line 32  C     !USES:
32  #include "SIZE.h"  #include "SIZE.h"
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34  #include "PARAMS.h"  #include "PARAMS.h"
35    #include "RESTART.h"
36        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
37        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
38    
# Line 75  C     msgBuf     :: message buffer Line 76  C     msgBuf     :: message buffer
76        ENDIF        ENDIF
77  #endif  #endif
78    
79        IF (        IF ( modelEnd .OR. permPickup .OR. tempPickup ) THEN
      &     ( .NOT.modelEnd .AND. (permPickup.OR.tempPickup) )  
      &     .OR.  
      &     ( modelEnd .AND. .NOT.(permPickup.OR.tempPickup) )  
      &    ) THEN  
80  C--   this is time to write pickup files  C--   this is time to write pickup files
81    
82  C-    write a pickup for each package which need it to restart  C-    write a pickup for each package which need it to restart
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22