/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vi_v_vertshear.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vi_v_vertshear.F

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

revision 1.9 by jmc, Wed Sep 28 15:53:20 2005 UTC revision 1.10 by heimbach, Wed Jun 7 01:55:15 2006 UTC
# Line 123  c2   &                  *_maskS(I,J,K,bi Line 123  c2   &                  *_maskS(I,J,K,bi
123            vShearTerm(I,J)=-0.5*            vShearTerm(I,J)=-0.5*
124       &                   (     (wBarYp*vZp+wBarYm*vZm)       &                   (     (wBarYp*vZp+wBarYm*vZm)
125       &                        +(ABS(wBarYp)*vZp-ABS(wBarYm)*vZm)       &                        +(ABS(wBarYp)*vZp-ABS(wBarYm)*vZm)
126       &                   )*recip_hFacS(i,j,k,bi,bj)       &                   )*_recip_hFacS(i,j,k,bi,bj)
127       &                    *recip_drF(K)       &                    * recip_drF(K)
128  c3   &                    *recip_rAs(i,j,bi,bj)  c3   &                    * recip_rAs(i,j,bi,bj)
129          ELSE          ELSE
130            vShearTerm(I,J)=-0.5*(wBarYp*vZp+wBarYm*vZm)            vShearTerm(I,J)=-0.5*(wBarYp*vZp+wBarYm*vZm)
131       &                    *recip_hFacS(i,j,k,bi,bj)       &                    *_recip_hFacS(i,j,k,bi,bj)
132       &                    *recip_drF(K)       &                    * recip_drF(K)
133  c3   &                    *recip_rAs(i,j,bi,bj)  c3   &                    * recip_rAs(i,j,bi,bj)
134          ENDIF          ENDIF
135         ENDDO         ENDDO
136        ENDDO        ENDDO
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22