Changeset 5237


Ignore:
Timestamp:
2015-04-24T14:29:52+02:00 (6 years ago)
Author:
cetlod
Message:

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : put the appropriate comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r5236 r5237  
    120120      !!             ***  ROUTINE trc_mean_qsr  *** 
    121121      !! 
    122       !! ** Purpose :  Compute daily mean qsr for biogeochmeical model in case 
     122      !! ** Purpose :  Compute daily mean qsr for biogeochemical model in case 
    123123      !!               of diurnal cycle 
    124124      !! 
    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 time-step 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  
    128129      !!---------------------------------------------------------------------- 
    129130      INTEGER, INTENT(in) ::   kt 
     
    166167          ENDDO 
    167168          qsr_arr (:,:,nb_rec_per_days) = qsr(:,:) 
    168           qsr_mean(:,:                ) = SUM( qsr_arr(:,:,:) , 3 ) / nb_rec_per_days 
     169          qsr_mean(:,:                ) = SUM( qsr_arr(:,:,:), 3 ) / nb_rec_per_days 
    169170      ENDIF 
    170171      ! 
Note: See TracChangeset for help on using the changeset viewer.