/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_check.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_check.F

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

revision 1.7 by jmc, Sun Dec 24 20:22:56 2006 UTC revision 1.10 by gforget, Wed Jan 11 00:22:48 2017 UTC
# Line 38  C     !LOCAL VARIABLES: Line 38  C     !LOCAL VARIABLES:
38  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
39  C     Check diagnostics parameter consistency  C     Check diagnostics parameter consistency
40    
41          IF ( useMissingValue .AND. .NOT. diag_mnc ) THEN
42            WRITE(msgBuf,'(2A)') '** WARNING ** DIAGNOSTICS_CHECK: ',
43         &            'ignore "useMissingValue" since "diag_mnc" is off'
44            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
45         &                      SQUEEZE_RIGHT , myThid )
46          ENDIF
47    
48          IF ( diag_mnc.AND.(diagMdsDir.NE.' ') ) THEN
49            WRITE(msgBuf,'(A,A)') 'S/R DIAGNOSTICS_CHECK: diagMdsDir ',
50         &       'and pkg/mnc cannot be used together'
51            CALL PRINT_ERROR( msgBuf, myThid )
52            CALL ALL_PROC_DIE( 0 )
53            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
54          ENDIF
55    
56          IF ( (mdsioLocalDir.NE.' ').AND.(diagMdsDir.NE.' ') ) THEN
57            WRITE(msgBuf,'(A)')
58         &   'S/R DIAGNOSTICS_CHECK: mdsioLocalDir and diagMdsDir cannot be'
59            CALL PRINT_ERROR( msgBuf, myThid )
60            WRITE(msgBuf,'(A)')
61         &   'S/R DIAGNOSTICS_CHECK: specified at the same time'
62            CALL PRINT_ERROR( msgBuf, myThid )
63            CALL ALL_PROC_DIE( 0 )
64            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
65          ENDIF
66    
67  #ifdef DIAGNOSTICS_HAS_PICKUP  #ifdef DIAGNOSTICS_HAS_PICKUP
68        IF ( diag_pickup_read ) THEN        IF ( diag_pickup_read ) THEN
69          WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ',          WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ',
# Line 79  C-    File names: Line 105  C-    File names:
105           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',
106       &            'found 2 identical filenames:'       &            'found 2 identical filenames:'
107           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
108           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
109       &    '1rst (m=', m, ' ): ', fnames(m)       &    '1rst (m=', m, ' ): ', fnames(m)
110           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
111           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
112       &    ' 2nd (n=', ld, ' ): ', fnames(ld)       &    ' 2nd (n=', ld, ' ): ', fnames(ld)
113           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
114           STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'           STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
# Line 96  C-    File names: Line 122  C-    File names:
122           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',
123       &            'found 2 identical stat_fname:'       &            'found 2 identical stat_fname:'
124           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
125           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
126       &    '1rst (m=', m, ' ): ', diagSt_Fname(m)       &    '1rst (m=', m, ' ): ', diagSt_Fname(m)
127           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
128           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
129       &    ' 2nd (n=', ld, ' ): ', diagSt_Fname(ld)       &    ' 2nd (n=', ld, ' ): ', diagSt_Fname(ld)
130           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
131           STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'           STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
# Line 126  C      (needs p>0 for p^kappa ; here tak Line 152  C      (needs p>0 for p^kappa ; here tak
152       &     .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin       &     .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin
153       &     .OR. levs(k,ld).LE.0. ) THEN       &     .OR. levs(k,ld).LE.0. ) THEN
154    
155              WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',              WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
156       &       'Vertical Interp. for list l=', ld,       &       'Vertical Interp. for list l=', ld,
157       &       ', filename: ', fnames(ld)       &       ', filename: ', fnames(ld)
158              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
# Line 142  C-    p^kappa interpolation: meaningfull Line 168  C-    p^kappa interpolation: meaningfull
168            WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',            WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',
169       &       'INTERP_VERT not allowed in this config'       &       'INTERP_VERT not allowed in this config'
170            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
171             WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',             WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
172       &       ' for list l=', ld, ', filename: ', fnames(ld)       &       ' for list l=', ld, ', filename: ', fnames(ld)
173            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
174            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
# Line 162  C-    If nonlinear free surf is active, Line 188  C-    If nonlinear free surf is active,
188       &                                   jpoint2, ipoint2, myThid )       &                                   jpoint2, ipoint2, myThid )
189            ENDIF            ENDIF
190            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN
191              WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_CHECK: ',              WRITE(msgBuf,'(2A,I5)') 'DIAGNOSTICS_CHECK: ',
192       &      'to interpolate diags from output list:', ld       &      'to interpolate diags from output list:', ld
193              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
194              IF ( ipoint1.EQ.0 .AND. jpoint1.EQ.0 ) THEN              IF ( ipoint1.EQ.0 .AND. jpoint1.EQ.0 ) THEN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22