/[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.14 by heimbach, Tue Nov 12 20:42:24 2002 UTC revision 1.15 by heimbach, Fri Jun 27 01:57:28 2003 UTC
# Line 142  CEOP Line 142  CEOP
142       &                      + act2*max0*max1       &                      + act2*max0*max1
143       &                      + act3*max0*max1*max2       &                      + act3*max0*max1*max2
144       &                      + act4*max0*max1*max2*max3       &                      + act4*max0*max1*max2*max3
145            if (tracerIdentity.GT.maxpass)            if (tracerIdentity.GT.maxpass) then
146       &         STOP 'maxpass seems smaller than tracerIdentity'               print *, 'ph-pass gad_advection ', maxpass, tracerIdentity
147                 STOP 'maxpass seems smaller than tracerIdentity'
148              endif
149  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
150    
151  C--   Set up work arrays with valid (i.e. not NaN) values  C--   Set up work arrays with valid (i.e. not NaN) values
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22