/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_advection.F

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

revision 1.66 by jmc, Mon Jun 6 15:44:00 2011 UTC revision 1.67 by heimbach, Sun Jun 19 23:53:19 2011 UTC
# Line 142  c     _RS maskUp  (1-OLx:sNx+OLx,1-OLy:s Line 142  c     _RS maskUp  (1-OLx:sNx+OLx,1-OLy:s
142        INTEGER npass, ipass        INTEGER npass, ipass
143        INTEGER nCFace        INTEGER nCFace
144        LOGICAL N_edge, S_edge, E_edge, W_edge        LOGICAL N_edge, S_edge, E_edge, W_edge
145    C     msgBuf     :: Informational/error message buffer
146          CHARACTER*(MAX_LEN_MBUF) msgBuf
147  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
148        INTEGER myTile        INTEGER myTile
149  #endif  #endif
# Line 173  CEOP Line 175  CEOP
175       &                      + act3*max0*max1*max2       &                      + act3*max0*max1*max2
176       &                      + act4*max0*max1*max2*max3       &                      + act4*max0*max1*max2*max3
177            IF (tracerIdentity.GT.maxpass) THEN            IF (tracerIdentity.GT.maxpass) THEN
178               print *, 'ph-pass gad_advection ', maxpass, tracerIdentity             WRITE(msgBuf,'(A,2I3)')
179               STOP 'maxpass seems smaller than tracerIdentity'       &      'GAD_ADVECTION: maxpass < tracerIdentity ',
180         &      maxpass, tracerIdentity
181               CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
182         &      SQUEEZE_RIGHT , myThid )
183               CALL PRINT_ERROR( msgBuf, myThid )
184               STOP 'ABNORMAL END: S/R GAD_ADVECTION'
185            ENDIF            ENDIF
186  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
187    
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22