/[MITgcm]/MITgcm/pkg/ptracers/ptracers_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_read_pickup.F

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

revision 1.8 by jmc, Tue Dec 18 15:49:14 2007 UTC revision 1.9 by jmc, Fri Jan 25 23:18:42 2008 UTC
# Line 99  C---+----1----+----2----+----3----+----4 Line 99  C---+----1----+----2----+----3----+----4
99         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
100  c      IF ( filePrec.NE.0 .AND. filePrec.NE.prec ) THEN  c      IF ( filePrec.NE.0 .AND. filePrec.NE.prec ) THEN
101         IF ( nbFields.GE.0 .AND. filePrec.NE.prec ) THEN         IF ( nbFields.GE.0 .AND. filePrec.NE.prec ) THEN
102           WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ',           WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ',
103       &    'pickup-file binary precision do not match !'       &    'pickup-file binary precision do not match !'
104           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
105           WRITE(msgBuf,'(A,2(A,I4))') 'READ_PICKUP: ',           WRITE(msgBuf,'(A,2(A,I4))') 'PTRACERS_READ_PICKUP: ',
106       &    'file prec.=', filePrec, ' but expecting prec.=', prec       &    'file prec.=', filePrec, ' but expecting prec.=', prec
107           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
108           STOP 'ABNORMAL END: S/R READ_PICKUP (data-prec Pb)'           STOP 'ABNORMAL END: S/R PTRACERS_READ_PICKUP (data-prec Pb)'
109         ENDIF         ENDIF
110         _END_MASTER( myThid )         _END_MASTER( myThid )
111    
# Line 113  c      IF ( filePrec.NE.0 .AND. filePrec Line 113  c      IF ( filePrec.NE.0 .AND. filePrec
113  C-      No meta-file or old meta-file without List of Fields  C-      No meta-file or old meta-file without List of Fields
114          ioUnit = errorMessageUnit          ioUnit = errorMessageUnit
115          IF ( pickupStrictlyMatch ) THEN          IF ( pickupStrictlyMatch ) THEN
116            WRITE(msgBuf,'(4A)') 'READ_PICKUP: ',            WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ',
117       &      'no field-list found in meta-file',       &      'no field-list found in meta-file',
118       &      ' => cannot check for strick-matching'       &      ' => cannot check for strick-matching'
119            CALL PRINT_ERROR( msgBuf, myThid )            CALL PRINT_ERROR( msgBuf, myThid )
120            WRITE(msgBuf,'(4A)') 'READ_PICKUP: ',            WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ',
121       &      'try with " pickupStrictlyMatch=.FALSE.,"',       &      'try with " pickupStrictlyMatch=.FALSE.,"',
122       &      ' in file: "data", NameList: "PARM03"'       &      ' in file: "data", NameList: "PARM03"'
123            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
124            STOP 'ABNORMAL END: S/R READ_PICKUP'            STOP 'ABNORMAL END: S/R PTRACERS_READ_PICKUP'
125          ELSE          ELSE
126            WRITE(msgBuf,'(4A)') 'WARNING >> READ_PICKUP: ',            WRITE(msgBuf,'(4A)') 'WARNING >> PTRACERS_READ_PICKUP: ',
127       &      ' no field-list found'       &      ' no field-list found'
128            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )            CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
129           IF ( nbFields.EQ.-1 ) THEN           IF ( nbFields.EQ.-1 ) THEN
# Line 230  C--    Check for missing fields: Line 230  C--    Check for missing fields:
230       U                     nMissing,       U                     nMissing,
231       I                     myIter, myThid )       I                     myIter, myThid )
232         IF ( nMissing.GT.missFldDim ) THEN         IF ( nMissing.GT.missFldDim ) THEN
233           WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ',           WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ',
234       &     'missing fields list has been truncated to', missFldDim       &     'missing fields list has been truncated to', missFldDim
235           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
236           STOP 'ABNORMAL END: S/R READ_PICKUP (list-size Pb)'           STOP 'ABNORMAL END: S/R PTRACERS_READ_PICKUP (list-size Pb)'
237         ENDIF         ENDIF
238         CALL PTRACERS_CHECK_PICKUP(         CALL PTRACERS_CHECK_PICKUP(
239       I                     missFldList,       I                     missFldList,
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22