/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

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

revision 1.155 by jmc, Sun Apr 17 03:16:22 2011 UTC revision 1.156 by jmc, Mon May 23 00:41:09 2011 UTC
# Line 560  C Line 560  C
560       I         guDissip, gvDissip,       I         guDissip, gvDissip,
561       I         myTime, myIter, myThid)       I         myTime, myIter, myThid)
562    
 #ifdef   ALLOW_OBCS  
 C--      Apply open boundary conditions  
 c          IF (useOBCS) THEN  
 c            CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid )  
 c          ENDIF  
 #endif   /* ALLOW_OBCS */  
   
563           ENDIF           ENDIF
564    
565  C--     end of dynamics k loop (1:Nr)  C--     end of dynamics k loop (1:Nr)
# Line 606  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bib Line 599  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bib
599    
600  #ifdef   ALLOW_OBCS  #ifdef   ALLOW_OBCS
601  C--      Apply open boundary conditions  C--      Apply open boundary conditions
 c       IF ( useOBCS .AND.(implicitViscosity.OR.momImplVertAdv) ) THEN  
 c          DO K=1,Nr  
 c            CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid )  
 c          ENDDO  
602          IF ( useOBCS ) THEN          IF ( useOBCS ) THEN
603            CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid )            CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid )
604          ENDIF          ENDIF
Legend:
Removed from v.1.155  
changed lines
  Added in v.1.156
  ViewVC Help
Powered by ViewVC 1.1.22