/[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.6 by cnh, Sun Feb 4 14:38:48 2001 UTC revision 1.7 by jmc, Wed Feb 14 22:51:27 2001 UTC
# Line 51  C--   Initial conditions are convectivel Line 51  C--   Initial conditions are convectivel
51             jMax=sNy+Oly             jMax=sNy+Oly
52             CALL CONVECTIVE_ADJUSTMENT(             CALL CONVECTIVE_ADJUSTMENT(
53       I       bi, bj, iMin, iMax, jMin, jMax,       I       bi, bj, iMin, iMax, jMin, jMax,
54       I       startTime, 0, myThid )       I       startTime, nIter0, myThid )
55           ENDDO           ENDDO
56          ENDDO          ENDDO
57          _BARRIER          _BARRIER
# Line 63  C--   Initialize variable data for packa Line 63  C--   Initialize variable data for packa
63  C--   Finally summarise the model state  C--   Finally summarise the model state
64        CALL STATE_SUMMARY( myThid )        CALL STATE_SUMMARY( myThid )
65    
66    #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
67    C--   initialise time-average arrays with initial state values
68          IF (taveFreq.GT.0.) THEN
69            DO bj=myByLo(myThid),myByHi(myThid)
70             DO bi=myBxLo(myThid),myBxHi(myThid)
71               CALL DO_TIME_AVERAGES(startTime, nIter0, bi, bj, myThid)
72             ENDDO
73            ENDDO
74          ENDIF
75    #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */
76    
77          RETURN
78        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22