Changeset 5237
 Timestamp:
 20150424T14:29:52+02:00 (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r5236 r5237 120 120 !! *** ROUTINE trc_mean_qsr *** 121 121 !! 122 !! ** Purpose : Compute daily mean qsr for biogeoch meical model in case122 !! ** Purpose : Compute daily mean qsr for biogeochemical model in case 123 123 !! of diurnal cycle 124 124 !! 125 !! ** Method : Store qsr coming from ocean every at 1 hour of every 126 !! coupling frequency in coupled mode, in one day 127 !! Compute the daily mean qsr 125 !! ** Method : store in TOP the qsr every hour ( or every timestep the latter 126 !! is greater than 1 hour ) and then, compute the mean with 127 !! a moving average over 24 hours. 128 !! In coupled mode, the sampling is done at every coupling frequency 128 129 !! 129 130 INTEGER, INTENT(in) :: kt … … 166 167 ENDDO 167 168 qsr_arr (:,:,nb_rec_per_days) = qsr(:,:) 168 qsr_mean(:,: ) = SUM( qsr_arr(:,:,:) 169 qsr_mean(:,: ) = SUM( qsr_arr(:,:,:), 3 ) / nb_rec_per_days 169 170 ENDIF 170 171 !
Note: See TracChangeset
for help on using the changeset viewer.