/[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.8 by jmc, Tue Feb 5 15:31:19 2008 UTC
# Line 79  C-    File names: Line 79  C-    File names:
79           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',
80       &            'found 2 identical filenames:'       &            'found 2 identical filenames:'
81           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
82           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
83       &    '1rst (m=', m, ' ): ', fnames(m)       &    '1rst (m=', m, ' ): ', fnames(m)
84           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
85           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
86       &    ' 2nd (n=', ld, ' ): ', fnames(ld)       &    ' 2nd (n=', ld, ' ): ', fnames(ld)
87           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
88           STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'           STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
# Line 96  C-    File names: Line 96  C-    File names:
96           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',
97       &            'found 2 identical stat_fname:'       &            'found 2 identical stat_fname:'
98           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
99           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
100       &    '1rst (m=', m, ' ): ', diagSt_Fname(m)       &    '1rst (m=', m, ' ): ', diagSt_Fname(m)
101           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
102           WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',           WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
103       &    ' 2nd (n=', ld, ' ): ', diagSt_Fname(ld)       &    ' 2nd (n=', ld, ' ): ', diagSt_Fname(ld)
104           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
105           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 126  C      (needs p>0 for p^kappa ; here tak
126       &     .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin       &     .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin
127       &     .OR. levs(k,ld).LE.0. ) THEN       &     .OR. levs(k,ld).LE.0. ) THEN
128    
129              WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',              WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
130       &       'Vertical Interp. for list l=', ld,       &       'Vertical Interp. for list l=', ld,
131       &       ', filename: ', fnames(ld)       &       ', filename: ', fnames(ld)
132              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
# Line 142  C-    p^kappa interpolation: meaningfull Line 142  C-    p^kappa interpolation: meaningfull
142            WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',            WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ',
143       &       'INTERP_VERT not allowed in this config'       &       'INTERP_VERT not allowed in this config'
144            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
145             WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ',             WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ',
146       &       ' for list l=', ld, ', filename: ', fnames(ld)       &       ' for list l=', ld, ', filename: ', fnames(ld)
147            CALL PRINT_ERROR( msgBuf , myThid )            CALL PRINT_ERROR( msgBuf , myThid )
148            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'            STOP 'ABNORMAL END: S/R DIAGNOSTICS_CHECK'
# Line 162  C-    If nonlinear free surf is active, Line 162  C-    If nonlinear free surf is active,
162       &                                   jpoint2, ipoint2, myThid )       &                                   jpoint2, ipoint2, myThid )
163            ENDIF            ENDIF
164            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN
165              WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_CHECK: ',              WRITE(msgBuf,'(2A,I5)') 'DIAGNOSTICS_CHECK: ',
166       &      'to interpolate diags from output list:', ld       &      'to interpolate diags from output list:', ld
167              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
168              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.8
  ViewVC Help
Powered by ViewVC 1.1.22