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

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

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

revision 1.34 by jmc, Mon Dec 20 19:10:13 2004 UTC revision 1.35 by jmc, Wed Jun 22 00:27:47 2005 UTC
# Line 720  C--   Divergence of vertical fluxes Line 720  C--   Divergence of vertical fluxes
720            localTij(i,j)=localTijk(i,j,k)-dTtracerLev(k)*            localTij(i,j)=localTijk(i,j,k)-dTtracerLev(k)*
721       &     _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)       &     _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
722       &     *recip_rA(i,j,bi,bj)       &     *recip_rA(i,j,bi,bj)
723       &     *( fVerT(i,j,kUp)-fVerT(i,j,kDown)       &     *( fVerT(i,j,kDown)-fVerT(i,j,kUp)
724       &       -tracer(i,j,k,bi,bj)*(rTrans(i,j)-rTransKp1(i,j))       &       -tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))
725       &      )*rkFac       &      )*rkSign
726            gTracer(i,j,k,bi,bj)=            gTracer(i,j,k,bi,bj)=
727       &     (localTij(i,j)-tracer(i,j,k,bi,bj))/dTtracerLev(k)       &     (localTij(i,j)-tracer(i,j,k,bi,bj))/dTtracerLev(k)
728           ENDDO           ENDDO
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22