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

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

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

revision 1.132 by jmc, Sun Nov 14 23:35:49 2010 UTC revision 1.133 by jmc, Thu Nov 18 00:38:50 2010 UTC
# Line 193  C                      index into fVerTe Line 193  C                      index into fVerTe
193  CEOP  CEOP
194    
195  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
196           IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_ENTER('THERMODYNAMICS',myThid)
      &    CALL DEBUG_ENTER('THERMODYNAMICS',myThid)  
197  #endif  #endif
198    
199  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
# Line 371  C disable this section of code. Line 370  C disable this section of code.
370  #ifdef GAD_ALLOW_TS_SOM_ADV  #ifdef GAD_ALLOW_TS_SOM_ADV
371          IF ( tempSOM_Advection ) THEN          IF ( tempSOM_Advection ) THEN
372  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
373            IF ( debugLevel .GE. debLevB )            IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)
      &     CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)  
374  #endif  #endif
375            CALL GAD_SOM_ADVECT(            CALL GAD_SOM_ADVECT(
376       I             tempImplVertAdv, tempAdvScheme, tempVertAdvScheme,       I             tempImplVertAdv, tempAdvScheme, tempVertAdvScheme,
# Line 386  C disable this section of code. Line 384  C disable this section of code.
384          IF (tempMultiDimAdvec) THEN          IF (tempMultiDimAdvec) THEN
385  #endif /* GAD_ALLOW_TS_SOM_ADV */  #endif /* GAD_ALLOW_TS_SOM_ADV */
386  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
387            IF ( debugLevel .GE. debLevB )            IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid)
      &     CALL DEBUG_CALL('GAD_ADVECTION',myThid)  
388  #endif  #endif
389            CALL GAD_ADVECTION(            CALL GAD_ADVECTION(
390       I             tempImplVertAdv, tempAdvScheme, tempVertAdvScheme,       I             tempImplVertAdv, tempAdvScheme, tempVertAdvScheme,
# Line 399  C disable this section of code. Line 396  C disable this section of code.
396  #ifdef GAD_ALLOW_TS_SOM_ADV  #ifdef GAD_ALLOW_TS_SOM_ADV
397          IF ( saltSOM_Advection ) THEN          IF ( saltSOM_Advection ) THEN
398  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
399            IF ( debugLevel .GE. debLevB )            IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)
      &     CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid)  
400  #endif  #endif
401            CALL GAD_SOM_ADVECT(            CALL GAD_SOM_ADVECT(
402       I             saltImplVertAdv, saltAdvScheme, saltVertAdvScheme,       I             saltImplVertAdv, saltAdvScheme, saltVertAdvScheme,
# Line 414  C disable this section of code. Line 410  C disable this section of code.
410          IF (saltMultiDimAdvec) THEN          IF (saltMultiDimAdvec) THEN
411  #endif /* GAD_ALLOW_TS_SOM_ADV */  #endif /* GAD_ALLOW_TS_SOM_ADV */
412  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
413            IF ( debugLevel .GE. debLevB )            IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid)
      &     CALL DEBUG_CALL('GAD_ADVECTION',myThid)  
414  #endif  #endif
415            CALL GAD_ADVECTION(            CALL GAD_ADVECTION(
416       I             saltImplVertAdv, saltAdvScheme, saltVertAdvScheme,       I             saltImplVertAdv, saltAdvScheme, saltVertAdvScheme,
# Line 432  C of whether multiDimAdvection is set or Line 427  C of whether multiDimAdvection is set or
427  #ifndef ALLOW_LONGSTEP  #ifndef ALLOW_LONGSTEP
428          IF ( usePTRACERS ) THEN          IF ( usePTRACERS ) THEN
429  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
430            IF ( debugLevel .GE. debLevB )           IF (debugMode) CALL DEBUG_CALL('PTRACERS_ADVECTION',myThid)
      &     CALL DEBUG_CALL('PTRACERS_ADVECTION',myThid)  
431  #endif  #endif
432           CALL PTRACERS_ADVECTION( bi,bj,myIter,myTime,myThid )           CALL PTRACERS_ADVECTION( bi,bj,myTime,myIter,myThid )
433          ENDIF          ENDIF
434  #endif /* ALLOW_LONGSTEP */  #endif /* ALLOW_LONGSTEP */
435  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
436  #endif /* DISABLE_MULTIDIM_ADVECTION */  #endif /* DISABLE_MULTIDIM_ADVECTION */
437    
438  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
439          IF ( debugLevel .GE. debLevB )          IF (debugMode)
440       &    CALL DEBUG_MSG('ENTERING DOWNWARD K LOOP',myThid)       &    CALL DEBUG_MSG('ENTERING DOWNWARD K LOOP',myThid)
441  #endif  #endif
442    
# Line 907  C--   end bi,bj loops. Line 901  C--   end bi,bj loops.
901        ENDDO        ENDDO
902    
903  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
904        If (debugMode) THEN        IF ( debugLevel.GE.debLevB ) THEN
905         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (THERMODYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (THERMODYNAMICS)',myThid)
906         CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,vVel,'Vvel (THERMODYNAMICS)',myThid)
907         CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (THERMODYNAMICS)',myThid)
# Line 930  C--   end bi,bj loops. Line 924  C--   end bi,bj loops.
924  #endif /* ALLOW_DEBUG */  #endif /* ALLOW_DEBUG */
925    
926  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
927           IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_LEAVE('THERMODYNAMICS',myThid)
      &    CALL DEBUG_LEAVE('THERMODYNAMICS',myThid)  
928  #endif  #endif
929    
930  #endif /* ALLOW_GENERIC_ADVDIFF */  #endif /* ALLOW_GENERIC_ADVDIFF */
Legend:
Removed from v.1.132  
changed lines
  Added in v.1.133
  ViewVC Help
Powered by ViewVC 1.1.22