/[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.150 by jmc, Mon Oct 4 02:58:03 2010 UTC revision 1.151 by jmc, Mon Oct 25 23:02:35 2010 UTC
# Line 559  C Line 559  C
559    
560  #ifdef   ALLOW_OBCS  #ifdef   ALLOW_OBCS
561  C--      Apply open boundary conditions  C--      Apply open boundary conditions
562             IF (useOBCS) THEN  c          IF (useOBCS) THEN
563               CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid )  c            CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid )
564             ENDIF  c          ENDIF
565  #endif   /* ALLOW_OBCS */  #endif   /* ALLOW_OBCS */
566    
567           ENDIF           ENDIF
568    
   
569  C--     end of dynamics k loop (1:Nr)  C--     end of dynamics k loop (1:Nr)
570          ENDDO          ENDDO
571    
# Line 604  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bib Line 603  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bib
603    
604  #ifdef   ALLOW_OBCS  #ifdef   ALLOW_OBCS
605  C--      Apply open boundary conditions  C--      Apply open boundary conditions
606          IF ( useOBCS .AND.(implicitViscosity.OR.momImplVertAdv) ) THEN  c       IF ( useOBCS .AND.(implicitViscosity.OR.momImplVertAdv) ) THEN
607             DO K=1,Nr  c          DO K=1,Nr
608               CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid )  c            CALL OBCS_APPLY_UV( bi, bj, k, gU, gV, myThid )
609             ENDDO  c          ENDDO
610            IF ( useOBCS ) THEN
611              CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid )
612          ENDIF          ENDIF
613  #endif   /* ALLOW_OBCS */  #endif   /* ALLOW_OBCS */
614    
# Line 660  C-    end of bi,bj loops Line 661  C-    end of bi,bj loops
661        ENDDO        ENDDO
662    
663  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
664        IF (useOBCS) THEN  c     IF (useOBCS) THEN
665         CALL OBCS_PRESCRIBE_EXCHANGES(myThid)  c      CALL OBCS_PRESCRIBE_EXCHANGES(myThid)
666        ENDIF  c     ENDIF
667  #endif  #endif
668    
669  Cml(  Cml(
Legend:
Removed from v.1.150  
changed lines
  Added in v.1.151
  ViewVC Help
Powered by ViewVC 1.1.22