/[MITgcm]/MITgcm/pkg/bulk_force/bulkf_diags.F
ViewVC logotype

Diff of /MITgcm/pkg/bulk_force/bulkf_diags.F

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

revision 1.1 by cheisey, Thu Nov 21 19:11:42 2002 UTC revision 1.2 by cheisey, Wed Dec 4 14:53:39 2002 UTC
# Line 30  C     myThid -  Number of this instance Line 30  C     myThid -  Number of this instance
30        _RL     myTime        _RL     myTime
31        INTEGER myIter        INTEGER myIter
32        INTEGER myThid        INTEGER myThid
33    
34  CEndOfInterface  CEndOfInterface
35    
36    
# Line 54  C     Dump files and restart average com Line 55  C     Dump files and restart average com
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)
 cBB      print*,'QQ bulk time',BULKF_timeave(bi,bj)  
58           CALL TIMEAVE_NORMALIZ(BULK_Qnet_AVE,BULKF_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(BULK_Qnet_AVE,BULKF_timeave, 1 ,
59       &                 bi,bj,myThid)       &                 bi,bj,myThid)
60           CALL TIMEAVE_NORMALIZ(BULK_EmPmR_AVE,BULKF_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(BULK_EmPmR_AVE,BULKF_timeave, 1 ,
# Line 76  cBB      print*,'QQ bulk time',BULKF_tim Line 76  cBB      print*,'QQ bulk time',BULKF_tim
76           CALL TIMEAVE_NORMALIZ(BULK_ssq_AVE,BULKF_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(BULK_ssq_AVE,BULKF_timeave, 1 ,
77       &                 bi,bj,myThid)       &                 bi,bj,myThid)
78    
   
79          ENDDO          ENDDO
80         ENDDO         ENDDO
81                    
82    
83           _BEGIN_MASTER(myThid)
84         WRITE(suff,'(I10.10)') myIter         WRITE(suff,'(I10.10)') myIter
85    
86         CALL WRITE_FLD_XY_RL('BULK_Qnet.',suff,BULK_Qnet_AVE,         CALL WRITE_FLD_XY_RL('BULK_Qnet.',suff,BULK_Qnet_AVE,
# Line 102  cBB      print*,'QQ bulk time',BULKF_tim Line 103  cBB      print*,'QQ bulk time',BULKF_tim
103       &     BULK_solar_AVE,myIter,myThid)       &     BULK_solar_AVE,myIter,myThid)
104         CALL WRITE_FLD_XY_RL('BULK_ssq.',suff,         CALL WRITE_FLD_XY_RL('BULK_ssq.',suff,
105       &     BULK_ssq_AVE,myIter,myThid)       &     BULK_ssq_AVE,myIter,myThid)
106           _END_MASTER(myThid)
107    
108    
109  C      Reset averages to zero  C      Reset averages to zero
# Line 117  C      Reset averages to zero Line 119  C      Reset averages to zero
119           CALL TIMEAVE_RESET(BULK_flw_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_flw_AVE,1,bi,bj,myThid)
120           CALL TIMEAVE_RESET(BULK_solar_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_solar_AVE,1,bi,bj,myThid)
121           CALL TIMEAVE_RESET(BULK_ssq_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_ssq_AVE,1,bi,bj,myThid)
122           BULKF_TimeAve(bi,bj)=0.           BULKF_TimeAve(1,bi,bj)=0.
123          ENDDO          ENDDO
124         ENDDO         ENDDO
125    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22