/[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.4 by jmc, Fri Oct 19 14:36:47 2007 UTC revision 1.6 by mlosch, Mon Feb 25 20:57:24 2008 UTC
# Line 76  C     msgBuf     :: message buffer Line 76  C     msgBuf     :: message buffer
76        ENDIF        ENDIF
77  #endif  #endif
78    
79        IF (        IF ( (modelEnd.AND.writePickupAtEnd)
80       &     ( .NOT.modelEnd .AND. (permPickup.OR.tempPickup) )       &     .OR. permPickup .OR. tempPickup ) THEN
      &     .OR.  
      &     ( modelEnd .AND. .NOT.(permPickup.OR.tempPickup) )  
      &    ) THEN  
81  C--   this is time to write pickup files  C--   this is time to write pickup files
82    
83  C-    write a pickup for each package which need it to restart  C-    write a pickup for each package which need it to restart
# Line 114  C-    Update pickup level for the next t Line 111  C-    Update pickup level for the next t
111          ENDIF          ENDIF
112          _END_MASTER(myThid)          _END_MASTER(myThid)
113    
114          ELSEIF ( modelEnd ) THEN
115            WRITE(msgBuf,'(A)')
116         &     "Did not write pickup because writePickupAtEnd = FALSE"
117            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
118         &                    SQUEEZE_RIGHT, myThid )
119    
120  C--   time to write pickup files: end  C--   time to write pickup files: end
121        ENDIF        ENDIF
122    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22