Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |