/[MITgcm]/MITgcm/pkg/gmredi/gmredi_xtransport.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_xtransport.F

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

revision 1.12 by heimbach, Tue Jan 21 19:34:13 2003 UTC revision 1.13 by heimbach, Fri Jun 27 01:55:08 2003 UTC
# Line 71  C     I, J - Loop counters Line 71  C     I, J - Loop counters
71       &                      + act3*max0*max1*max2       &                      + act3*max0*max1*max2
72       &                      + act4*max0*max1*max2*max3       &                      + act4*max0*max1*max2*max3
73            kkey = (igadkey-1)*Nr + k            kkey = (igadkey-1)*Nr + k
74            if (tracerIdentity.GT.maxpass)            if (tracerIdentity.GT.maxpass) then
75       &         STOP 'maxpass seems smaller than tracerIdentity'               print *, 'ph-pass gmredi_xtrans ', maxpass, tracerIdentity
76                 STOP 'maxpass seems smaller than tracerIdentity'
77              endif
78  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
79    
80        IF (useGMRedi) THEN        IF (useGMRedi) THEN
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22