/[MITgcm]/MITgcm/pkg/aim/aim_write_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/aim_write_diags.F

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

revision 1.3 by adcroft, Mon Feb 5 15:42:01 2001 UTC revision 1.4 by jmc, Tue Mar 6 18:01:13 2001 UTC
# Line 36  C     == Local variables == Line 36  C     == Local variables ==
36        LOGICAL gf        LOGICAL gf
37        gf = .TRUE.        gf = .TRUE.
38    
39  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef ALLOW_TIMEAVE
40    
41  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
42        IF ( myIter.NE.nIter0 .AND.        IF ( myIter.NE.nIter0 .AND.
# 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           CALL TIMEAVER_FINAL_XY(USTRtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(USTRtave,AIM_timeave,1,bi,bj,myThid)
51           CALL TIMEAVER_FINAL_XY(VSTRtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(VSTRtave,AIM_timeave,1,bi,bj,myThid)
52           CALL TIMEAVER_FINAL_XY(TSRtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(TSRtave,AIM_timeave,1,bi,bj,myThid)
53           CALL TIMEAVER_FINAL_XY(OLRtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(OLRtave,AIM_timeave,1,bi,bj,myThid)
54           CALL TIMEAVER_FINAL_XY(SSRtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(SSRtave,AIM_timeave,1,bi,bj,myThid)
55           CALL TIMEAVER_FINAL_XY(SLRtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(SLRtave,AIM_timeave,1,bi,bj,myThid)
56           CALL TIMEAVER_FINAL_XY(SHFtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(SHFtave,AIM_timeave,1,bi,bj,myThid)
57           CALL TIMEAVER_FINAL_XY(EVAPtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(EVAPtave,AIM_timeave,1,bi,bj,myThid)
58           CALL TIMEAVER_FINAL_XY(PRECNVtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(PRECNVtave,AIM_timeave,1,bi,bj,myThid)
59           CALL TIMEAVER_FINAL_XY(PRECLStave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(PRECLStave,AIM_timeave,1,bi,bj,myThid)
60           CALL TIMEAVER_FINAL_XY(CLOUDCtave,AIM_timeave,bi,bj,myThid)           CALL TIMEAVE_NORMALIZ(CLOUDCtave,AIM_timeave,1,bi,bj,myThid)
61          ENDDO          ENDDO
62         ENDDO         ENDDO
63    
# Line 93  C      Normalize by integrated time Line 93  C      Normalize by integrated time
93  C      Reset averages to zero  C      Reset averages to zero
94         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
95          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
96           CALL TIMEAVER_INI_XY(USTRtave, bi,bj,myThid)           CALL TIMEAVE_RESET(USTRtave,  1, bi, bj, myThid)
97           CALL TIMEAVER_INI_XY(VSTRtave, bi,bj,myThid)           CALL TIMEAVE_RESET(VSTRtave,  1, bi, bj, myThid)
98           CALL TIMEAVER_INI_XY(TSRtave, bi,bj,myThid)           CALL TIMEAVE_RESET(TSRtave,   1, bi, bj, myThid)
99           CALL TIMEAVER_INI_XY(OLRtave, bi,bj,myThid)           CALL TIMEAVE_RESET(OLRtave,   1, bi, bj, myThid)
100           CALL TIMEAVER_INI_XY(SSRtave, bi,bj,myThid)           CALL TIMEAVE_RESET(SSRtave,   1, bi, bj, myThid)
101           CALL TIMEAVER_INI_XY(SLRtave, bi,bj,myThid)           CALL TIMEAVE_RESET(SLRtave,   1, bi, bj, myThid)
102           CALL TIMEAVER_INI_XY(SHFtave, bi,bj,myThid)           CALL TIMEAVE_RESET(SHFtave,   1, bi, bj, myThid)
103           CALL TIMEAVER_INI_XY(EVAPtave, bi,bj,myThid)           CALL TIMEAVE_RESET(EVAPtave,  1, bi, bj, myThid)
104           CALL TIMEAVER_INI_XY(PRECNVtave, bi,bj,myThid)           CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid)
105           CALL TIMEAVER_INI_XY(PRECLStave, bi,bj,myThid)           CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid)
106           CALL TIMEAVER_INI_XY(CLOUDCtave, bi,bj,myThid)           CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid)
107          ENDDO          ENDDO
108         ENDDO         ENDDO
109    
110        ENDIF        ENDIF
111    
112  #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */  #endif /* ALLOW_TIMEAVE */
113    
114  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
115    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22