/[MITgcm]/MITgcm/verification/internal_wave/code/obcs_calc.F
ViewVC logotype

Diff of /MITgcm/verification/internal_wave/code/obcs_calc.F

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

revision 1.5 by mlosch, Wed Aug 7 16:55:52 2002 UTC revision 1.6 by jahn, Tue Dec 15 17:03:29 2009 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "OBCS_OPTIONS.h"  #include "OBCS_OPTIONS.h"
5    
6        SUBROUTINE OBCS_CALC( bi, bj, futureTime, futureIter,        SUBROUTINE OBCS_CALC( futureTime, futureIter,
7       &                      uVel, vVel, wVel, theta, salt,       &                      uVel, vVel, wVel, theta, salt,
8       &                      myThid )       &                      myThid )
9  C     /==========================================================\  C     /==========================================================\
# Line 23  C     === Global variables === Line 23  C     === Global variables ===
23  #include "OBCS.h"  #include "OBCS.h"
24    
25  C     == Routine arguments ==  C     == Routine arguments ==
       INTEGER bi, bj  
26        INTEGER futureIter        INTEGER futureIter
27        _RL futureTime        _RL futureTime
28        _RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
# Line 36  C     == Routine arguments == Line 35  C     == Routine arguments ==
35  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
36    
37  C     == Local variables ==  C     == Local variables ==
38          INTEGER bi, bj
39        INTEGER I, J ,K        INTEGER I, J ,K
40    
41  #include "GRID.h"  #include "GRID.h"
# Line 71  C just to speed things up. You will prob Line 71  C just to speed things up. You will prob
71  C for smoother looking solutions.  C for smoother looking solutions.
72        rampTime2 = 4. _d 0*44567.0 _d 0        rampTime2 = 4. _d 0*44567.0 _d 0
73    
74          DO bj=myByLo(myThid),myByHi(myThid)
75          DO bi=myBxLo(myThid),myBxHi(myThid)
76    
77  C     Eastern OB  C     Eastern OB
78        IF (useOrlanskiEast) THEN        IF (useOrlanskiEast) THEN
# Line 185  C         Southern OB, template for forc Line 187  C         Southern OB, template for forc
187          ENDDO          ENDDO
188        ENDIF        ENDIF
189    
190    C--   end bi,bj loops.
191          ENDDO
192          ENDDO
193    
194  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
195        RETURN        RETURN
196        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22