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

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

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

revision 1.4 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.5 by jmc, Sun Oct 28 21:38:21 2007 UTC
# Line 42  C  AdvectFluxUV         :: advective flu Line 42  C  AdvectFluxUV         :: advective flu
42    
43  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
44  C  i,j                  :: loop indices  C  i,j                  :: loop indices
45        INTEGER I,J        INTEGER i,j
46  CEOP  CEOP
47    
48        DO j=1-Oly+1,sNy+Oly        DO j=1-Oly+1,sNy+Oly
49         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
50          AdvectFluxUV(i,j) =          AdvectFluxUV(i,j) =
51       &  0.25*( uTrans(i,j) + uTrans(i,j-1) )       &  0.25*( uTrans(i,j) + uTrans(i,j-1) )
52    #ifdef MOM_BOUNDARY_CONSERVE
53         &      *(   vFld(i,j)*_maskS(i-1,j,k,bi,bj)
54         &         + vFld(i-1,j)*_maskS(i,j,k,bi,bj) )
55    #else
56       &      *(   vFld(i,j) +   vFld(i-1,j) )       &      *(   vFld(i,j) +   vFld(i-1,j) )
57    #endif
58  #ifdef OLD_ADV_BCS  #ifdef OLD_ADV_BCS
59       &      *_maskS(i,j,k,bi,bj)       &      *_maskS(i,j,k,bi,bj)
60       &      *_maskS(i-1,j,k,bi,bj)       &      *_maskS(i-1,j,k,bi,bj)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22