/[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.46 by jmc, Sun Jul 28 21:04:25 2013 UTC revision 1.47 by jmc, Thu Aug 1 20:11:34 2013 UTC
# Line 350  C-    Free surface correction term (flux Line 350  C-    Free surface correction term (flux
350  C---  endif momAdvection & k=1  C---  endif momAdvection & k=1
351        ENDIF        ENDIF
352    
   
353  C---  Calculate vertical transports (at k+1) below U & V points :  C---  Calculate vertical transports (at k+1) below U & V points :
354        IF (momAdvection) THEN        IF (momAdvection) THEN
355          CALL MOM_CALC_RTRANS( k+1, bi, bj,          CALL MOM_CALC_RTRANS( k+1, bi, bj,
# Line 369  C---  Calculate vertical transports (at Line 368  C---  Calculate vertical transports (at
368  #endif /* MOM_BOUNDARY_CONSERVE */  #endif /* MOM_BOUNDARY_CONSERVE */
369    
370        IF (momViscosity) THEN        IF (momViscosity) THEN
371         CALL MOM_CALC_VISC( bi, bj, k,         DO j=1-OLy,sNy+OLy
372       O        viscAh_Z, viscAh_D, viscA4_Z, viscA4_D,          DO i=1-OLx,sNx+OLx
373       I        hDiv, vort3, tension, strain, KE, hFacZ,           viscAh_D(i,j) = viscAhD
374       I        myThid )           viscAh_Z(i,j) = viscAhZ
375             viscA4_D(i,j) = viscA4D
376             viscA4_Z(i,j) = viscA4Z
377            ENDDO
378           ENDDO
379           IF ( useVariableVisc ) THEN
380            CALL MOM_CALC_VISC( bi, bj, k,
381         O           viscAh_Z, viscAh_D, viscA4_Z, viscA4_D,
382         I           hDiv, vort3, tension, strain, KE, hFacZ,
383         I           myThid )
384           ENDIF
385        ENDIF        ENDIF
386    
387  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22