/[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.2 by cheisey, Wed Dec 4 14:53:39 2002 UTC revision 1.3 by cheisey, Thu Dec 5 16:15:58 2002 UTC
# Line 69  C      Normalize by integrated time Line 69  C      Normalize by integrated time
69       &                 bi,bj,myThid)       &                 bi,bj,myThid)
70           CALL TIMEAVE_NORMALIZ(BULK_evap_AVE,BULKF_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(BULK_evap_AVE,BULKF_timeave, 1 ,
71       &                 bi,bj,myThid)       &                 bi,bj,myThid)
72           CALL TIMEAVE_NORMALIZ(BULK_flw_AVE,BULKF_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(BULK_flwup_AVE,BULKF_timeave, 1 ,
73         &                 bi,bj,myThid)
74             CALL TIMEAVE_NORMALIZ(BULK_flwupnet_AVE,BULKF_timeave, 1 ,
75       &                 bi,bj,myThid)       &                 bi,bj,myThid)
76           CALL TIMEAVE_NORMALIZ(BULK_solar_AVE,BULKF_timeave, 1 ,           CALL TIMEAVE_NORMALIZ(BULK_solar_AVE,BULKF_timeave, 1 ,
77       &                 bi,bj,myThid)       &                 bi,bj,myThid)
# Line 97  C      Normalize by integrated time Line 99  C      Normalize by integrated time
99       &     BULK_sensible_AVE,myIter,myThid)       &     BULK_sensible_AVE,myIter,myThid)
100         CALL WRITE_FLD_XY_RL('BULK_evap.',suff,         CALL WRITE_FLD_XY_RL('BULK_evap.',suff,
101       &     BULK_evap_AVE,myIter,myThid)       &     BULK_evap_AVE,myIter,myThid)
102         CALL WRITE_FLD_XY_RL('BULK_flw.',suff,         CALL WRITE_FLD_XY_RL('BULK_flwup.',suff,
103       &     BULK_flw_AVE,myIter,myThid)       &     BULK_flwup_AVE,myIter,myThid)
104           CALL WRITE_FLD_XY_RL('BULK_flwupnet.',suff,
105         &     BULK_flwupnet_AVE,myIter,myThid)
106         CALL WRITE_FLD_XY_RL('BULK_solar.',suff,         CALL WRITE_FLD_XY_RL('BULK_solar.',suff,
107       &     BULK_solar_AVE,myIter,myThid)       &     BULK_solar_AVE,myIter,myThid)
108         CALL WRITE_FLD_XY_RL('BULK_ssq.',suff,         CALL WRITE_FLD_XY_RL('BULK_ssq.',suff,
# Line 116  C      Reset averages to zero Line 120  C      Reset averages to zero
120           CALL TIMEAVE_RESET(BULK_latent_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_latent_AVE,1,bi,bj,myThid)
121           CALL TIMEAVE_RESET(BULK_sensible_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_sensible_AVE,1,bi,bj,myThid)
122           CALL TIMEAVE_RESET(BULK_evap_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_evap_AVE,1,bi,bj,myThid)
123           CALL TIMEAVE_RESET(BULK_flw_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_flwup_AVE,1,bi,bj,myThid)
124             CALL TIMEAVE_RESET(BULK_flwupnet_AVE,1,bi,bj,myThid)
125           CALL TIMEAVE_RESET(BULK_solar_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_solar_AVE,1,bi,bj,myThid)
126           CALL TIMEAVE_RESET(BULK_ssq_AVE,1,bi,bj,myThid)           CALL TIMEAVE_RESET(BULK_ssq_AVE,1,bi,bj,myThid)
127           BULKF_TimeAve(1,bi,bj)=0.           BULKF_TimeAve(1,bi,bj)=0.
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22