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

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

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

revision 1.8 by jmc, Wed Jan 31 21:47:55 2007 UTC revision 1.9 by jmc, Tue Feb 5 15:31:19 2008 UTC
# Line 92  C-    IF fizhi is being  used, may need Line 92  C-    IF fizhi is being  used, may need
92       &                                   jpoint2, ipoint2, myThid )       &                                   jpoint2, ipoint2, myThid )
93            ENDIF            ENDIF
94            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN            IF ( ipoint1.EQ.0 .OR. ipoint2.EQ.0 ) THEN
95              WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_INTERP_VERT: ',              WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_INTERP_VERT: ',
96       &      'fails to interpolate diag.(#', ndId,'): ',flds(md,listId)       &      'fails to interpolate diag.(#', ndId,'): ',flds(md,listId)
97              CALL PRINT_ERROR( msgBuf , myThid )              CALL PRINT_ERROR( msgBuf , myThid )
98              STOP 'ABNORMAL END: S/R DIAGNOSTICS_INTERP_VERT'              STOP 'ABNORMAL END: S/R DIAGNOSTICS_INTERP_VERT'
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22