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

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

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

revision 1.4 by jmc, Wed Feb 14 22:51:27 2001 UTC revision 1.5 by jmc, Tue Mar 6 17:19:25 2001 UTC
# Line 19  C     == Global data == Line 19  C     == Global data ==
19  #include "DYNVARS.h"  #include "DYNVARS.h"
20  #include "GRID.h"  #include "GRID.h"
21    
22  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
23  #include "AVER.h"  #include "TIMEAVE_STATV.h"
24  #endif  #endif
25    
26        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 97  C-          Check static stability with Line 97  C-          Check static stability with
97       U           ConvectCount,       U           ConvectCount,
98       I           myTime,myIter,myThid)       I           myTime,myIter,myThid)
99    
 #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  
             IF (myIter.ne.nIter0 .AND. taveFreq.GT.0.) THEN  
               CALL TIMEAVER_1FLD_XYZ(ConvectCount, ConvectCountTave,  
      I                               deltaTclock, bi, bj, K, myThid)  
             ENDIF  
 #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  
   
100  C--       End DO K=1,Nr  C--       End DO K=1,Nr
101            ENDDO            ENDDO
102                
103    #ifdef ALLOW_TIMEAVE
104              IF (myIter.ne.nIter0 .AND. taveFreq.GT.0.) THEN
105                CALL TIMEAVE_CUMULATE(ConvectCountTave, ConvectCount, Nr,
106         I                               deltaTclock, bi, bj, myThid)
107              ENDIF
108    #endif /* ALLOW_TIMEAVE */
109    
110  #ifdef  ALLOW_KPP  #ifdef  ALLOW_KPP
111  C--     End IF (.NOT.useKPP)  C--     End IF (.NOT.useKPP)
112          ENDIF          ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22