/[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.3 by adcroft, Fri Mar 24 18:31:31 2000 UTC revision 1.4 by adcroft, Thu Jun 29 18:51:18 2000 UTC
# Line 40  C     == Local variables == Line 40  C     == Local variables ==
40        _RL    flx_Dn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL    flx_Dn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
41        _RL    flx_Up(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL    flx_Up(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
42  C     I,J,K - Loop counters  C     I,J,K - Loop counters
43        INTEGER i,j,k, kP1        INTEGER i,j,k, kP1, kUp
44        _RL  wOverride        _RL  wOverride
45        _RS  hFacROpen        _RS  hFacROpen
46        _RS  hFacRClosed        _RS  hFacRClosed
# Line 176  caja           and an hFacUS (above V po Line 176  caja           and an hFacUS (above V po
176          ENDDO          ENDDO
177         ENDDO         ENDDO
178        ENDDO        ENDDO
179    
180    C--   This call is aesthetic: it makes the W field
181    C     consistent with the OBs but this has no algorithmic
182    C     impact. This is purely for diagnostic purposes.
183          DO bj=myByLo(myThid),myByHi(myThid)
184           DO bi=myBxLo(myThid),myBxHi(myThid)
185            DO K=1,Nr
186             Kup=max(1,K-1)
187    c        CALL APPLY_OBCS3( bi, bj, K, Kup, rTrans, rVel,
188    c    I                        myThid )
189            ENDDO
190           ENDDO
191          ENDDO
192    
193  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
194    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22