/[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.93 by jmc, Mon Jul 11 22:32:50 2005 UTC revision 1.94 by jmc, Wed Aug 24 23:13:54 2005 UTC
# Line 565  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib Line 565  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib
565  #endif /* ndef ALLOW_OFFLINE */  #endif /* ndef ALLOW_OFFLINE */
566    
567  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
 #ifndef MINIMAL_TAVE_OUTPUT  
568          useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90          useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90
569       &       .OR. useGMredi .OR. ivdc_kappa.NE.0.       &       .OR. useGMredi .OR. ivdc_kappa.NE.0.
570          IF (taveFreq.GT.0. .AND. useVariableK ) THEN          IF (taveFreq.GT.0. .AND. useVariableK ) THEN
# Line 577  c          CALL TIMEAVE_CUMUL_DIF_1T(Tdi Line 576  c          CALL TIMEAVE_CUMUL_DIF_1T(Tdi
576  c    I                        Nr, 3, deltaTclock, bi, bj, myThid)  c    I                        Nr, 3, deltaTclock, bi, bj, myThid)
577           ENDIF           ENDIF
578          ENDIF          ENDIF
 #endif /* ndef MINIMAL_TAVE_OUTPUT */  
579  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
580    
581  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
# Line 637  C--      Apply open boundary conditions Line 635  C--      Apply open boundary conditions
635          IF ( taveFreq.GT. 0. _d 0 .AND. fluidIsWater ) THEN          IF ( taveFreq.GT. 0. _d 0 .AND. fluidIsWater ) THEN
636            CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid)            CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid)
637          ENDIF          ENDIF
 #ifndef MINIMAL_TAVE_OUTPUT  
638          IF (taveFreq.GT.0. .AND. ivdc_kappa.NE.0.) THEN          IF (taveFreq.GT.0. .AND. ivdc_kappa.NE.0.) THEN
639            CALL TIMEAVE_CUMULATE(ConvectCountTave, IVDConvCount,            CALL TIMEAVE_CUMULATE(ConvectCountTave, IVDConvCount,
640       I                           Nr, deltaTclock, bi, bj, myThid)       I                           Nr, deltaTclock, bi, bj, myThid)
641          ENDIF          ENDIF
 #endif /* ndef MINIMAL_TAVE_OUTPUT */  
642  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
643    
644  #endif /* SINGLE_LAYER_MODE */  #endif /* SINGLE_LAYER_MODE */
Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94
  ViewVC Help
Powered by ViewVC 1.1.22