/[MITgcm]/MITgcm/pkg/obcs/obcs_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_calc.F

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

revision 1.3 by adcroft, Mon Feb 5 15:45:47 2001 UTC revision 1.4 by adcroft, Wed Feb 28 14:48:25 2001 UTC
# Line 106  C         Northern OB Line 106  C         Northern OB
106        ENDIF        ENDIF
107    
108  C         Southern OB  C         Southern OB
 #ifdef ALLOW_ORLANSKI  
109        IF (useOrlanskiSouth) THEN          IF (useOrlanskiSouth) THEN  
110          CALL ORLANSKI_SOUTH(          CALL ORLANSKI_SOUTH(
111       &          bi, bj, futureTime,       &          bi, bj, futureTime,
112       &          uVel, vVel, wVel, theta, salt,       &          uVel, vVel, wVel, theta, salt,
113       &          myThid )       &          myThid )
114        ELSE        ELSE
 #endif  
115          DO K=1,Nr          DO K=1,Nr
116            DO I=1-Olx,sNx+Olx            DO I=1-Olx,sNx+Olx
117              J_obc=OB_Js(I,bi,bj)              J_obc=OB_Js(I,bi,bj)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22