/[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.84 by jmc, Sat Dec 4 00:12:14 2004 UTC revision 1.85 by dimitri, Sat Dec 4 05:59:50 2004 UTC
# Line 552  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib Line 552  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib
552  #endif /* ndef ALLOW_OFFLINE */  #endif /* ndef ALLOW_OFFLINE */
553    
554  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
555  #ifndef HRCUBE  #ifndef MINIMAL_TAVE_OUTPUT
556          useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90          useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90
557       &       .OR. useGMredi .OR. ivdc_kappa.NE.0.       &       .OR. useGMredi .OR. ivdc_kappa.NE.0.
558          IF (taveFreq.GT.0. .AND. useVariableK ) THEN          IF (taveFreq.GT.0. .AND. useVariableK ) THEN
# Line 564  c          CALL TIMEAVE_CUMUL_DIF_1T(Tdi Line 564  c          CALL TIMEAVE_CUMUL_DIF_1T(Tdi
564  c    I                        Nr, 3, deltaTclock, bi, bj, myThid)  c    I                        Nr, 3, deltaTclock, bi, bj, myThid)
565           ENDIF           ENDIF
566          ENDIF          ENDIF
567  #endif /* ndef HRCUBE */  #endif /* ndef MINIMAL_TAVE_OUTPUT */
568  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
569    
570  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
# Line 625  C--      Apply open boundary conditions Line 625  C--      Apply open boundary conditions
625          IF ( taveFreq.GT. 0. _d 0 .AND. fluidIsWater ) THEN          IF ( taveFreq.GT. 0. _d 0 .AND. fluidIsWater ) THEN
626            CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid)            CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid)
627          ENDIF          ENDIF
628  #ifndef HRCUBE  #ifndef MINIMAL_TAVE_OUTPUT
629          IF (taveFreq.GT.0. .AND. ivdc_kappa.NE.0.) THEN          IF (taveFreq.GT.0. .AND. ivdc_kappa.NE.0.) THEN
630            CALL TIMEAVE_CUMULATE(ConvectCountTave, IVDConvCount,            CALL TIMEAVE_CUMULATE(ConvectCountTave, IVDConvCount,
631       I                           Nr, deltaTclock, bi, bj, myThid)       I                           Nr, deltaTclock, bi, bj, myThid)
632          ENDIF          ENDIF
633  #endif /* ndef HRCUBE */  #endif /* ndef MINIMAL_TAVE_OUTPUT */
634  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
635    
636  #endif /* SINGLE_LAYER_MODE */  #endif /* SINGLE_LAYER_MODE */
Legend:
Removed from v.1.84  
changed lines
  Added in v.1.85
  ViewVC Help
Powered by ViewVC 1.1.22