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

Diff of /MITgcm/pkg/gmredi/gmredi_rtransport.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 67  C     I, J - Loop counters Line 67  C     I, J - Loop counters
67       &                      + act3*max0*max1*max2       &                      + act3*max0*max1*max2
68       &                      + act4*max0*max1*max2*max3       &                      + act4*max0*max1*max2*max3
69            kkey = (igadkey-1)*Nr + k            kkey = (igadkey-1)*Nr + k
70            if (tracerIdentity.GT.maxpass)            if (tracerIdentity.GT.maxpass) then
71       &         STOP 'maxpass seems smaller than tracerIdentity'               print *, 'ph-pass gmredi_rtrans ', maxpass, tracerIdentity
72                 STOP 'maxpass seems smaller than tracerIdentity'
73              endif
74  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
75    
76  C     Surface flux is zero  C     Surface flux is zero
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22