/[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.4 by adcroft, Thu Jun 29 18:51:18 2000 UTC revision 1.5 by adcroft, Fri Feb 2 21:04:47 2001 UTC
# Line 177  caja           and an hFacUS (above V po Line 177  caja           and an hFacUS (above V po
177         ENDDO         ENDDO
178        ENDDO        ENDDO
179    
180    #ifdef ALLOW_OBCS
181          IF (useOBCS) THEN
182  C--   This call is aesthetic: it makes the W field  C--   This call is aesthetic: it makes the W field
183  C     consistent with the OBs but this has no algorithmic  C     consistent with the OBs but this has no algorithmic
184  C     impact. This is purely for diagnostic purposes.  C     impact. This is purely for diagnostic purposes.
185        DO bj=myByLo(myThid),myByHi(myThid)         DO bj=myByLo(myThid),myByHi(myThid)
186         DO bi=myBxLo(myThid),myBxHi(myThid)          DO bi=myBxLo(myThid),myBxHi(myThid)
187          DO K=1,Nr           DO K=1,Nr
188           Kup=max(1,K-1)            CALL OBCS_APPLY_W( bi, bj, K, wVel, myThid )
189  c        CALL APPLY_OBCS3( bi, bj, K, Kup, rTrans, rVel,           ENDDO
 c    I                        myThid )  
190          ENDDO          ENDDO
191         ENDDO         ENDDO
192        ENDDO        ENDIF
193    #endif /* ALLOW_OBCS */
194    
195  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
196    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22