Changeset 7814 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

Timestamp:

2017-03-20T17:21:42+01:00 (7 years ago)

Author:

clem

Message:

cosmetic changes for better phasing with trunk

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90 (modified) (2 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

@@ -113 +113 @@
       CASE( 0 )
        
-         !ralb_sf = 0.80       ! dry snow
-         !ralb_sm = 0.65       ! melting snow
-         !ralb_if = 0.72       ! bare frozen ice
-         !ralb_im = ...        ! bare puddled ice 
-
          !  Computation of ice albedo (free of snow)
          WHERE     ( ph_snw == 0._wp .AND. pt_ice >= rt0_ice )   ;   zalb(:,:,:) = ralb_im
@@ -167 +162 @@
       CASE( 1 ) 
 
-!        ralb_im = ...        ! bare puddled ice
 ! compilation of values from literature
 !        ralb_sf = 0.85      ! dry snow