/[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.64 by jmc, Wed Jan 7 21:18:01 2004 UTC revision 1.65 by dimitri, Sun Jan 25 00:31:52 2004 UTC
# Line 858  C--      Apply open boundary conditions Line 858  C--      Apply open boundary conditions
858  #endif   /* ALLOW_OBCS */  #endif   /* ALLOW_OBCS */
859    
860  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
861    #ifndef HRCUBE
862          IF (taveFreq.GT.0. .AND. ivdc_kappa.NE.0.) THEN          IF (taveFreq.GT.0. .AND. ivdc_kappa.NE.0.) THEN
863            CALL TIMEAVE_CUMUL_1T(ConvectCountTave, ConvectCount,            CALL TIMEAVE_CUMUL_1T(ConvectCountTave, ConvectCount,
864       I                           Nr, deltaTclock, bi, bj, myThid)       I                           Nr, deltaTclock, bi, bj, myThid)
# Line 872  C--      Apply open boundary conditions Line 873  C--      Apply open boundary conditions
873       I                        Nr, 3, deltaTclock, bi, bj, myThid)       I                        Nr, 3, deltaTclock, bi, bj, myThid)
874           ENDIF           ENDIF
875          ENDIF          ENDIF
876    #endif /* ndef HRCUBE */
877  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
878    
879  #endif /* SINGLE_LAYER_MODE */  #endif /* SINGLE_LAYER_MODE */
Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65
  ViewVC Help
Powered by ViewVC 1.1.22