/[MITgcm]/MITgcm/model/src/check_pickup.F
ViewVC logotype

Diff of /MITgcm/model/src/check_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Mon Oct 29 18:18:26 2007 UTC revision 1.3 by jmc, Sun Aug 24 21:38:19 2008 UTC
# Line 117  C     (no serious problems expected if m Line 117  C     (no serious problems expected if m
117       &      'restart with 1rst guess == 0 for CG3D solver'       &      'restart with 1rst guess == 0 for CG3D solver'
118             CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )             CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
119            ENDIF            ENDIF
120             ELSEIF ( missFldList(j).EQ.'AddMass '
121         &               .AND. selectAddFluid.EQ.2 ) THEN
122              IF ( .NOT.pickupStrictlyMatch ) THEN
123               WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ',
124         &      'restart with AddMass == 0'
125               CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
126              ENDIF
127    
128  C-    Absolutely needed fields:  C-    Absolutely needed fields:
129           ELSEIF ( missFldList(j).EQ.'Uvel    ' .OR.           ELSEIF ( missFldList(j).EQ.'Uvel    ' .OR.
# Line 129  C-    Absolutely needed fields: Line 136  C-    Absolutely needed fields:
136       &       'cannot restart without field "',missFldList(j),'"'       &       'cannot restart without field "',missFldList(j),'"'
137             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
138    
139  C-    fields needed for restart (alternative not presentlently implemented)  C-    fields needed for restart (alternative not presently implemented)
140           ELSEIF ( missFldList(j).EQ.'PhiHyd  ' .OR.           ELSEIF ( missFldList(j).EQ.'PhiHyd  ' .OR.
141         &            missFldList(j).EQ.'AddMass ' .OR.
142       &            missFldList(j).EQ.'dEtaHdt ' .OR.       &            missFldList(j).EQ.'dEtaHdt ' .OR.
143       &            missFldList(j).EQ.'EtaH    ' ) THEN       &            missFldList(j).EQ.'EtaH    ' ) THEN
144             stopFlag = .TRUE.             stopFlag = .TRUE.
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22