/[MITgcm]/MITgcm/model/src/calc_gw.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gw.F

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

revision 1.11 by jmc, Mon Mar 29 17:58:40 2004 UTC revision 1.12 by jmc, Mon Apr 5 21:46:18 2004 UTC
# Line 61  C     I,J,K - Loop counters Line 61  C     I,J,K - Loop counters
61        _RS  hFacROpen        _RS  hFacROpen
62        _RS  hFacRClosed        _RS  hFacRClosed
63        _RL ab15,ab05        _RL ab15,ab05
64        _RL slipSideFac, slipBotFac        _RL slipSideFac
65        _RL tmp_VbarZ, tmp_UbarZ, tmp_WbarZ        _RL tmp_VbarZ, tmp_UbarZ, tmp_WbarZ
66    
67        _RL  Half        _RL  Half
# Line 88  C     Lateral friction (no-slip, free sl Line 88  C     Lateral friction (no-slip, free sl
88  C-    half slip was used before ; keep it for now.  C-    half slip was used before ; keep it for now.
89          slipSideFac = 0. _d 0          slipSideFac = 0. _d 0
90    
 C     Bottom friction (no-slip, free slip, or half slip):  
       IF ( no_slip_bottom ) THEN  
         slipBotFac = -1. _d 0  
       ELSE  
         slipBotFac =  1. _d 0  
       ENDIF  
 C-    half slip was used before ; keep it for now.  
         slipBotFac = 0. _d 0  
   
91        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
92         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
93          DO K=1,Nr          DO K=1,Nr
# Line 168  C Flux on Lower face Line 159  C Flux on Lower face
159             Flx_Dn(I,J,bi,bj)=             Flx_Dn(I,J,bi,bj)=
160       &     tmp_WbarZ*tmp_WbarZ       &     tmp_WbarZ*tmp_WbarZ
161       &    -viscAr*recip_drF(K)       &    -viscAr*recip_drF(K)
      &      *( 1. _d 0 + slipBotFac*  
      &         (wOverRide*maskC(I,J,Kp1,bi,bj)-1. _d 0) )  
162       &       *( wVel(I,J,K,bi,bj)-wOverRide*wVel(I,J,Kp1,bi,bj) )       &       *( wVel(I,J,K,bi,bj)-wOverRide*wVel(I,J,Kp1,bi,bj) )
163            ENDDO            ENDDO
164           ENDDO           ENDDO
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22