/[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.3 by adcroft, Fri Sep 21 13:11:43 2001 UTC revision 1.4 by jmc, Thu Oct 21 21:26:10 2004 UTC
# Line 35  C  KappaR               :: vertical diff Line 35  C  KappaR               :: vertical diff
35  C  tracer               :: tracer field  C  tracer               :: tracer field
36  C  myThid               :: thread number  C  myThid               :: thread number
37        INTEGER bi,bj,k        INTEGER bi,bj,k
38        _RL KappaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL KappaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
39        _RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
40        INTEGER myThid        INTEGER myThid
41    
# Line 62  CEOP Line 62  CEOP
62          DO i=1-Olx,sNx+Olx          DO i=1-Olx,sNx+Olx
63           dfr(i,j) =           dfr(i,j) =
64       &    -_rA(i,j,bi,bj)       &    -_rA(i,j,bi,bj)
65       &     *KappaR(i,j,k)*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,km1,bi,bj)-Tracer(i,j,k,bi,bj))*rkFac
67          ENDDO          ENDDO
68         ENDDO         ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22