/[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.7 by jmc, Tue Mar 6 17:10:29 2001 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5        SUBROUTINE CALC_GW(            SUBROUTINE CALC_GW(    
# Line 14  C     == Global variables == Line 16  C     == Global variables ==
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "PARAMS.h"  #include "PARAMS.h"
18  #include "GRID.h"  #include "GRID.h"
 #include "CG2D.h"  
19  #include "GW.h"  #include "GW.h"
20  #include "CG3D.h"  #include "CG3D.h"
21    
# Line 40  C     == Local variables == Line 41  C     == Local variables ==
41        _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)
42        _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)
43  C     I,J,K - Loop counters  C     I,J,K - Loop counters
44        INTEGER i,j,k, kP1        INTEGER i,j,k, kP1, kUp
45        _RL  wOverride        _RL  wOverride
46        _RS  hFacROpen        _RS  hFacROpen
47        _RS  hFacRClosed        _RS  hFacRClosed
# Line 177  caja           and an hFacUS (above V po Line 178  caja           and an hFacUS (above V po
178         ENDDO         ENDDO
179        ENDDO        ENDDO
180    
181    #ifdef ALLOW_OBCS
182          IF (useOBCS) THEN
183    C--   This call is aesthetic: it makes the W field
184    C     consistent with the OBs but this has no algorithmic
185    C     impact. This is purely for diagnostic purposes.
186           DO bj=myByLo(myThid),myByHi(myThid)
187            DO bi=myBxLo(myThid),myBxHi(myThid)
188             DO K=1,Nr
189              CALL OBCS_APPLY_W( bi, bj, K, wVel, myThid )
190             ENDDO
191            ENDDO
192           ENDDO
193          ENDIF
194    #endif /* ALLOW_OBCS */
195    
196  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
197    
198        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22