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

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

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

revision 1.3 by adcroft, Mon Sep 10 01:22:48 2001 UTC revision 1.4 by adcroft, Mon Sep 10 13:09:04 2001 UTC
# Line 68  C      for maskC(...) and wVel(...) Line 68  C      for maskC(...) and wVel(...)
68           Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,kM2,bi,bj))           Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,kM2,bi,bj))
69       &        *maskC(i,j,km2,bi,bj)       &        *maskC(i,j,km2,bi,bj)
70           IF (Rj.NE.0.) THEN           IF (Rj.NE.0.) THEN
71            IF (rTrans(i,j).LT.0) THEN            IF (rTrans(i,j).LT.0.) THEN
72              Cr=Rjm/Rj              Cr=Rjm/Rj
73            ELSE            ELSE
74              Cr=Rjp/Rj              Cr=Rjp/Rj
75            ENDIF            ENDIF
76           ELSE           ELSE
77            IF (rTrans(i,j).LT.0) THEN            IF (rTrans(i,j).LT.0.) THEN
78              Cr=Rjm*1.E20              Cr=Rjm*1.E20
79            ELSE            ELSE
80              Cr=Rjp*1.E20              Cr=Rjp*1.E20
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22