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

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

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

revision 1.9 by adcroft, Mon Sep 10 13:09:04 2001 UTC revision 1.10 by adcroft, Thu Sep 13 17:46:49 2001 UTC
# Line 377  C *note* should update KPP_TRANSPORT_T t Line 377  C *note* should update KPP_TRANSPORT_T t
377  #endif  #endif
378    
379  C--   Divergence of fluxes  C--   Divergence of fluxes
380        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly-1
381         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx-1
382          gTracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)          gTracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
383       &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)       &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
384       &    *recip_rA(i,j,bi,bj)       &    *recip_rA(i,j,bi,bj)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22