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

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

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

revision 1.8 by jmc, Fri Feb 23 00:30:03 2001 UTC revision 1.9 by jmc, Tue Mar 6 17:19:25 2001 UTC
# Line 69  C--   Initialize variable data for packa Line 69  C--   Initialize variable data for packa
69  C--   Finally summarise the model state  C--   Finally summarise the model state
70        CALL STATE_SUMMARY( myThid )        CALL STATE_SUMMARY( myThid )
71    
72  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
73  C--   initialise time-average arrays with initial state values  C--   initialise time-average arrays with initial state values
74        IF (taveFreq.GT.0.) THEN        IF (taveFreq.GT.0.) THEN
75          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
76           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
77             CALL DO_TIME_AVERAGES(startTime, nIter0, bi, bj, myThid)             CALL TIMEAVE_STATVARS(startTime, nIter0, bi, bj, myThid)
78           ENDDO           ENDDO
79          ENDDO          ENDDO
80        ENDIF        ENDIF
81  #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  #endif /* ALLOW_TIMEAVE */
82    
83        RETURN        RETURN
84        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22