/[MITgcm]/MITgcm/pkg/gmredi/gmredi_init.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_init.F

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

revision 1.4 by cnh, Sun Feb 4 14:38:49 2001 UTC revision 1.5 by jmc, Tue Mar 6 18:01:07 2001 UTC
# Line 33  C     iUnit       - Work variable for IO Line 33  C     iUnit       - Work variable for IO
33        INTEGER iUnit        INTEGER iUnit
34        INTEGER k,bi,bj        INTEGER k,bi,bj
35    
36  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
37  C     Initialize averages to zero  C     Initialize averages to zero
38        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
39         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
40            CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid)
41            CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid)
42            CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid)
43          DO k=1,Nr          DO k=1,Nr
          CALL TIMEAVER_INI_XYZ(GM_Kwx_T,bi,bj,K,myThid)  
          CALL TIMEAVER_INI_XYZ(GM_Kwy_T,bi,bj,K,myThid)  
          CALL TIMEAVER_INI_XYZ(GM_Kwz_T,bi,bj,K,myThid)  
44           GM_TimeAve(k,bi,bj)=0.           GM_TimeAve(k,bi,bj)=0.
45          ENDDO          ENDDO
46  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
47          CALL TIMEAVER_INI_XY(Visbeck_K_T, bi,bj,myThid)          CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid)
48  #endif  #endif
49         ENDDO         ENDDO
50        ENDDO        ENDDO
51  #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  #endif /* ALLOW_TIMEAVE */
52    
53  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
54    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22