/[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.153 by jmc, Thu Nov 18 00:57:24 2010 UTC revision 1.157 by jmc, Tue May 24 20:25:33 2011 UTC
# Line 96  C     == Global variables === Line 96  C     == Global variables ===
96  #  include "PTRACERS_FIELDS.h"  #  include "PTRACERS_FIELDS.h"
97  # endif  # endif
98  # ifdef ALLOW_OBCS  # ifdef ALLOW_OBCS
99  #  include "OBCS.h"  #  include "OBCS_FIELDS.h"
100  #  ifdef ALLOW_PTRACERS  #  ifdef ALLOW_PTRACERS
101  #   include "OBCS_PTRACERS.h"  #   include "OBCS_PTRACERS.h"
102  #  endif  #  endif
# Line 264  C   if desired: Line 264  C   if desired:
264        CALL CALC_EP_FORCING(myThid)        CALL CALC_EP_FORCING(myThid)
265  #endif  #endif
266    
267    #ifdef ALLOW_AUTODIFF_MONITOR_DIAG
268          CALL DUMMY_IN_DYNAMICS( mytime, myiter, myThid )
269    #endif
270    
271  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
272  C--   HPF directive to help TAMC  C--   HPF directive to help TAMC
273  CHPF$ INDEPENDENT  CHPF$ INDEPENDENT
# Line 556  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 602  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
# Line 660  C-    end of bi,bj loops Line 653  C-    end of bi,bj loops
653    
654  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
655        IF (useOBCS) THEN        IF (useOBCS) THEN
656         CALL OBCS_PRESCRIBE_EXCHANGES(myThid)          CALL OBCS_EXCHANGES( myThid )
657        ENDIF        ENDIF
658  #endif  #endif
659    
Legend:
Removed from v.1.153  
changed lines
  Added in v.1.157
  ViewVC Help
Powered by ViewVC 1.1.22