Changeset 5237 for branches/2015

Timestamp:

2015-04-24T14:29:52+02:00 (9 years ago)

Author:

cetlod

Message:

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : put the appropriate comments

File:

• branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (2 diffs)

branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -120 +120 @@
       !!             ***  ROUTINE trc_mean_qsr  ***
       !!
-      !! ** Purpose :  Compute daily mean qsr for biogeochmeical model in case
+      !! ** Purpose :  Compute daily mean qsr for biogeochemical model in case
       !!               of diurnal cycle
       !!
-      !! ** Method  :  Store qsr coming from ocean every at 1 hour of every
-      !!               coupling frequency  in coupled mode, in one day
-      !!               Compute the daily mean qsr
+      !! ** Method  : store in TOP the qsr every hour ( or every time-step the latter 
+      !!              is greater than 1 hour ) and then, compute the  mean with 
+      !!              a moving average over 24 hours. 
+      !!              In coupled mode, the sampling is done at every coupling frequency 
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt
@@ -166 +167 @@
           ENDDO
           qsr_arr (:,:,nb_rec_per_days) = qsr(:,:)
-          qsr_mean(:,:                ) = SUM( qsr_arr(:,:,:) , 3 ) / nb_rec_per_days
+          qsr_mean(:,:                ) = SUM( qsr_arr(:,:,:), 3 ) / nb_rec_per_days
       ENDIF
       !