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) |
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, |
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. |