/[MITgcm]/MITgcm/pkg/dic/dic_biotic_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_biotic_diags.F

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

revision 1.11 by stephd, Tue Dec 12 22:37:28 2006 UTC revision 1.12 by jmc, Mon Nov 5 19:02:08 2007 UTC
# Line 19  C     === Global variables === Line 19  C     === Global variables ===
19  #include "PARAMS.h"  #include "PARAMS.h"
20  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
21  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
22  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
23    c#include "PTRACERS_FIELDS.h"
24    
25  C     == Routine arguments ==  C     == Routine arguments ==
26  C     myTime - Current time of simulation ( s )  C     myTime - Current time of simulation ( s )
# Line 50  C     == Local variables == Line 51  C     == Local variables ==
51    
52  C     Dump files and restart average computation if needed  C     Dump files and restart average computation if needed
53        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,deltaTClock) ) THEN        IF ( DIFFERENT_MULTIPLE(taveFreq,myTime,deltaTClock) ) THEN
54            
55  C      Normalize by integrated time  C      Normalize by integrated time
56         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
57          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 78  C      Normalize by integrated time Line 79  C      Normalize by integrated time
79       &                 bi,bj,myThid)       &                 bi,bj,myThid)
80          ENDDO          ENDDO
81         ENDDO         ENDDO
82          
83         IF ( PTRACERS_timeave_mdsio )  THEN         IF ( PTRACERS_timeave_mdsio )  THEN
84           WRITE(suff,'(I10.10)') myIter           WRITE(suff,'(I10.10)') myIter
85           CALL WRITE_FLD_XYZ_RL('DIC_Biotave.',suff,BIOave,                   CALL WRITE_FLD_XYZ_RL('DIC_Biotave.',suff,BIOave,
86       &        myIter,myThid)       &        myIter,myThid)
87           CALL WRITE_FLD_XYZ_RL('DIC_Cartave.',suff,CARave,           CALL WRITE_FLD_XYZ_RL('DIC_Cartave.',suff,CARave,
88       &        myIter,myThid)       &        myIter,myThid)
# Line 155  C      Reset averages to zero Line 156  C      Reset averages to zero
156           enddo           enddo
157          ENDDO          ENDDO
158         ENDDO         ENDDO
159            
160        ENDIF        ENDIF
161    
162  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
163          
164  #endif /* DIC_BIOTIC   */  #endif /* DIC_BIOTIC   */
165          
166        RETURN        RETURN
167        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22