/[MITgcm]/MITgcm/pkg/rbcs/rbcs_add_tendency.F
ViewVC logotype

Diff of /MITgcm/pkg/rbcs/rbcs_add_tendency.F

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

revision 1.1 by stephd, Mon Dec 19 19:13:43 2005 UTC revision 1.2 by stephd, Tue Sep 26 19:29:37 2006 UTC
# Line 77  CEOP Line 77  CEOP
77  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
78        if (tracernum.gt.2) then        if (tracernum.gt.2) then
79         iTracer=tracernum-2         iTracer=tracernum-2
80         irbc=max(maskLEN,tracernum)         irbc=min(maskLEN,tracernum)
81         if (useRBCptracers) then         if (useRBCptracers) then
82          if (useRBCptrnum(iTracer)) then          if (useRBCptrnum(iTracer)) then
83           DO j=1,sNy           DO j=1,sNy
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22