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

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

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

revision 1.4 by jmc, Thu Oct 21 21:26:10 2004 UTC revision 1.5 by jmc, Wed Jun 22 00:27:47 2005 UTC
# Line 63  CEOP Line 63  CEOP
63           dfr(i,j) =           dfr(i,j) =
64       &    -_rA(i,j,bi,bj)       &    -_rA(i,j,bi,bj)
65       &     *KappaR(i,j)*recip_drC(k)       &     *KappaR(i,j)*recip_drC(k)
66       &     *(Tracer(i,j,km1,bi,bj)-Tracer(i,j,k,bi,bj))*rkFac       &     *(Tracer(i,j,k,bi,bj)-Tracer(i,j,km1,bi,bj))*rkSign
67          ENDDO          ENDDO
68         ENDDO         ENDDO
69        ENDIF        ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22