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

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

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

revision 1.4 by jmc, Thu Feb 15 18:43:13 2001 UTC revision 1.5 by jmc, Tue Mar 6 18:01:07 2001 UTC
# Line 37  C     == Local variables == Line 37  C     == Local variables ==
37        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
38    
39    
40  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
41    
42    
43  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
# Line 47  C     Dump files and restart average com Line 47  C     Dump files and restart average com
47  C      Normalize by integrated time  C      Normalize by integrated time
48         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
49          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
50           DO k=1,Nr           CALL TIMEAVE_NORMALIZ(GM_Kwx_T,GM_timeave, Nr,
51            CALL TIMEAVER_FINAL_XYZ(GM_Kwx_T,GM_timeave,       &                 bi,bj,myThid)
52       &                 bi,bj,K,myThid)           CALL TIMEAVE_NORMALIZ(GM_Kwy_T,GM_timeave, Nr,
53            CALL TIMEAVER_FINAL_XYZ(GM_Kwy_T,GM_timeave,       &                 bi,bj,myThid)
54       &                 bi,bj,K,myThid)           CALL TIMEAVE_NORMALIZ(GM_Kwz_T,GM_timeave, Nr,
55            CALL TIMEAVER_FINAL_XYZ(GM_Kwz_T,GM_timeave,       &                 bi,bj,myThid)
      &                 bi,bj,K,myThid)  
          ENDDO  
56  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
57           CALL TIMEAVER_FINAL_XY(Visbeck_K_T,GM_timeave,           CALL TIMEAVE_NORMALIZ(Visbeck_K_T,GM_timeave, 1,
58       &              bi,bj,myThid)       &                 bi,bj,myThid)
59  #endif  #endif
60          ENDDO          ENDDO
61         ENDDO         ENDDO
# Line 75  C      Normalize by integrated time Line 73  C      Normalize by integrated time
73  C      Reset averages to zero  C      Reset averages to zero
74         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
75          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
76             CALL TIMEAVE_RESET(GM_Kwx_T,Nr,bi,bj,myThid)
77             CALL TIMEAVE_RESET(GM_Kwy_T,Nr,bi,bj,myThid)
78             CALL TIMEAVE_RESET(GM_Kwz_T,Nr,bi,bj,myThid)
79           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)  
80            GM_TimeAve(k,bi,bj)=0.            GM_TimeAve(k,bi,bj)=0.
81           ENDDO           ENDDO
82  #ifdef GM_VISBECK_VARIABLE_K  #ifdef GM_VISBECK_VARIABLE_K
83           CALL TIMEAVER_INI_XY(Visbeck_K_T,bi,bj,myThid)           CALL TIMEAVE_RESET(Visbeck_K_T,1,bi,bj,myThid)
84  #endif  #endif
85          ENDDO          ENDDO
86         ENDDO         ENDDO
87                    
88        ENDIF        ENDIF
89    
90  #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  #endif /* ALLOW_TIMEAVE */
91                
92  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
93                
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22