Changeset 4284

Timestamp:

2013-11-20T14:12:24+01:00 (10 years ago)

Author:

cbricaud

Message:

add comments and calls to timong for dev_r3856_MERCATOR3_QSRMEAN24H changes

File:

• branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90 (modified) (3 diffs)

branches/2013/dev_r3856_MERCATOR3_QSRMEAN24H/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -450 +450 @@
       !!---------------------------------------------------------------------
       !!
-      !!
+      !! ** Purpose :   provide the daily qsr_mean over sea_ice for PISCES when
+      !!                analytic diurnal cycle is applied in physic
+      !!
+      !! ** Method  :   compute qsr
+      !! 
       !!---------------------------------------------------------------------
       REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   palb       ! ice albedo (clear sky) (alb_ice_cs)               [%]
@@ -460 +464 @@
       REAL(wp) ::   zztmp         ! temporary variable
       !!---------------------------------------------------------------------
+      IF( nn_timing == 1 )  CALL timing_start('blk_ice_meanqsr')
       !
       ijpl  = pdim                            ! number of ice categories
@@ -472 +477 @@
          END DO
       END DO
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_meanqsr')
       !
    END SUBROUTINE blk_ice_meanqsr