Changeset 8179 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

Timestamp:

2017-06-15T12:01:17+02:00 (7 years ago)

Author:

vancop

Message:

Replace total snow flux by snow meltwater flux

File:

• branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90 (modified) (1 diff)

branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

@@ -167 +167 @@
          ENDIF 
 
-         ! Note that this way of coding things means that the thickness
-         ! dependence of bare ice albedo is also altering the ponded ice albedo
-         ! I'm not sure that this is valid, but at least, this maintains
-         ! consistency with previous formulation (see below)
-     
          DO jl = 1, ijpl
             DO jj = 1, jpj