/[MITgcm]/MITgcm/model/src/calc_gw.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gw.F

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

revision 1.43 by jmc, Sat Jan 23 00:04:03 2010 UTC revision 1.44 by jmc, Tue May 11 20:54:11 2010 UTC
# Line 509  C     Tendency is minus divergence of ad Line 509  C     Tendency is minus divergence of ad
509  C     anelastic: all transports & advect. fluxes are scaled by rhoFac  C     anelastic: all transports & advect. fluxes are scaled by rhoFac
510            DO j=jMin,jMax            DO j=jMin,jMax
511             DO i=iMin,iMax             DO i=iMin,iMax
512    C to recover old (before 2009/11/30) results (since flxAdvUp(k=2) was zero)
513    c            IF (k.EQ.2) flxAdvUp(i,j) = 0.
514               gW(i,j,k,bi,bj) =               gW(i,j,k,bi,bj) =
515       &        -(   ( flx_EW(i+1,j)-flx_EW(i,j) )       &        -(   ( flx_EW(i+1,j)-flx_EW(i,j) )
516       &           + ( flx_NS(i,j+1)-flx_NS(i,j) )       &           + ( flx_NS(i,j+1)-flx_NS(i,j) )
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22