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

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

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

revision 1.49 by jmc, Sun Feb 9 18:51:46 2014 UTC revision 1.50 by jmc, Wed Feb 12 00:45:56 2014 UTC
# Line 302  C     anelastic: transports are scaled b Line 302  C     anelastic: transports are scaled b
302        ENDDO        ENDDO
303    
304        CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid )        CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid )
305        IF ( momViscosity ) THEN        IF ( useVariableVisc ) THEN
306          CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid )          CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid )
307          CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid )          CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid )
308          CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid )          CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid )
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22