/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_v_adv_wv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_v_adv_wv.F

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

revision 1.10 by jmc, Tue Dec 5 05:30:38 2006 UTC revision 1.11 by jmc, Sun Oct 28 21:38:21 2007 UTC
# Line 46  C  advectiveFluxWV      :: advective flu Line 46  C  advectiveFluxWV      :: advective flu
46    
47  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
48  C  i,j                  :: loop indices  C  i,j                  :: loop indices
49        INTEGER I,J        INTEGER i,j
50  CEOP  CEOP
51    
52        IF ( k.EQ.Nr+1 .AND.        IF ( k.EQ.Nr+1 .AND.
# Line 81  C     Vertical advection - interior ; as Line 81  C     Vertical advection - interior ; as
81        DO j=1-Oly+1,sNy+Oly        DO j=1-Oly+1,sNy+Oly
82         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
83          advectiveFluxWV(i,j) = rTrans(i,j)*          advectiveFluxWV(i,j) = rTrans(i,j)*
84    #ifdef MOM_BOUNDARY_CONSERVE
85         &   0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj)
86         &             +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) )
87    #else
88       &   0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) )       &   0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) )
89    #endif
90         ENDDO         ENDDO
91        ENDDO        ENDDO
92    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22