Changeset 8534 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icealb.F90

Timestamp:

2017-09-18T16:54:04+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part6 - pure cosmetics

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icealb.F90 (modified) (7 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icealb.F90

@@ -2 +2 @@
    !!======================================================================
    !!                       ***  MODULE  icealb  ***
-   !! Ocean forcing:  bulk thermohaline forcing of the ice
+   !! Atmospheric forcing:  Albedo over sea ice
    !!=====================================================================
    !! History :  4.0  ! 2017-07  (C. Rousset) Split ice and ocean albedos
@@ -8 +8 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                    LIM 3.0 sea-ice model
-   !!----------------------------------------------------------------------
-   !!   ice_alb       : albedo for ice (clear and overcast skies)
-   !!   alb_init      : initialisation of albedo computation
+   !!   'key_lim3'                                       ESIM sea-ice model
+   !!----------------------------------------------------------------------
+   !!   ice_alb        : albedo for ice (clear and overcast skies)
+   !!   ice_alb_init   : initialisation of albedo computation
    !!----------------------------------------------------------------------
    USE ice, ONLY: jpl ! sea-ice: number of categories
@@ -19 +19 @@
    USE lib_mpp        ! MPP library
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
+   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -109 +110 @@
       REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zafrac_pnd      ! relative ice fraction (effective)
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )   CALL timing_start('icealb')
+      !
       !-----------------------------------------------------
       !  Snow-free albedo (no ice thickness dependence yet)
@@ -147 +150 @@
          ENDIF 
          !
-!!gm: optimization ( rn_alb_smlt - rn_alb_imlt ) * r1_c2 can be computed one for all 
-!!gm  before the DO-loop below
          DO jl = 1, jpl
             DO jj = 1, jpj
@@ -301 +302 @@
       END SELECT
       !
+      IF( nn_timing == 1 )   CALL timing_stop('icealb')
+      !
    END SUBROUTINE ice_alb
 
@@ -343 +346 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option           Dummy module      NO LIM 3.0 sea-ice model
+   !!   Default option           Dummy module         NO ESIM sea-ice model
    !!----------------------------------------------------------------------
 #endif