Index: trunk/LMDZ.GENERIC/deftank/callphys.GJ581d
===================================================================
--- trunk/LMDZ.GENERIC/deftank/callphys.GJ581d	(revision 1374)
+++ trunk/LMDZ.GENERIC/deftank/callphys.GJ581d	(revision 1498)
@@ -126,6 +126,15 @@
 # Include hydrology ?
 hydrology     = .true.
+# Spectral Dependant Albedo ?
+albedo_spectral_mode=.false.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# If albedo_spectral_mode=.true., albedosnow becomes the 0.5 micron snow albedo.
+#
+# albedosnow = 0.95  (0.73 Sun-integrated) for fresh snow.
+#            = 0.50  (0.39 Sun-integrated) for dirty snow.
+#            = 0.645 (0.50 Sun-integrated) for 'realistic' snow.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 # H2O snow (and ice) albedo ?
-albedosnow    = 0.5
+albedosnow    = 0.50
 # Maximum sea ice thickness ?
 maxicethick   = 0.05
@@ -135,4 +144,6 @@
 ## CO2 options 
 ## ~~~~~~~~~~~
+# Co2 ice albedo ?
+albedoco2ice   = 0.5
 # gas is non-ideal CO2 ?
 nonideal      = .false.
Index: trunk/LMDZ.GENERIC/deftank/callphys.earlymars
===================================================================
--- trunk/LMDZ.GENERIC/deftank/callphys.earlymars	(revision 1374)
+++ trunk/LMDZ.GENERIC/deftank/callphys.earlymars	(revision 1498)
@@ -133,6 +133,15 @@
 # Include hydrology ?
 hydrology     = .true.
+# Spectral Dependant Albedo ?
+albedo_spectral_mode=.false.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# If albedo_spectral_mode=.true., albedosnow becomes the 0.5 micron snow albedo.
+#
+# albedosnow = 0.95  (0.73 Sun-integrated) for fresh snow.
+#            = 0.50  (0.39 Sun-integrated) for dirty snow.
+#            = 0.645 (0.50 Sun-integrated) for 'realistic' snow.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 # H2O snow (and ice) albedo ?
-albedosnow    = 0.5
+albedosnow    = 0.50
 # Maximum sea ice thickness ?
 maxicethick   = 0.05
@@ -146,4 +155,6 @@
 ## CO2 options 
 ## ~~~~~~~~~~~
+# Co2 ice albedo ?
+albedoco2ice   = 0.5
 # gas is non-ideal CO2 ?
 nonideal      = .false.
Index: trunk/LMDZ.GENERIC/deftank/callphys.earth
===================================================================
--- trunk/LMDZ.GENERIC/deftank/callphys.earth	(revision 1374)
+++ trunk/LMDZ.GENERIC/deftank/callphys.earth	(revision 1498)
@@ -132,6 +132,15 @@
 # WATER: hydrology ?
 hydrology     = .true.
+# Spectral Dependant Albedo ?
+albedo_spectral_mode=.false.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# If albedo_spectral_mode=.true., albedosnow becomes the 0.5 micron snow albedo.
+#
+# albedosnow = 0.95  (0.73 Sun-integrated) for fresh snow.
+#            = 0.50  (0.39 Sun-integrated) for dirty snow.
+#            = 0.78  (0.60 Sun-integrated) for 'realistic' snow.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 # H2O snow (and ice) albedo ?
-albedosnow    = 0.6
+albedosnow    = 0.60
 # Maximum sea ice thickness ?
 maxicethick   = 10.
@@ -143,4 +152,6 @@
 ## CO2 options 
 ## ~~~~~~~~~~~
+# Co2 ice albedo ?
+albedoco2ice   = 0.5
 # gas is non-ideal CO2 ?
 nonideal      = .false.
Index: trunk/LMDZ.GENERIC/deftank/earth1d_Dry.callphys.def
===================================================================
--- trunk/LMDZ.GENERIC/deftank/earth1d_Dry.callphys.def	(revision 1374)
+++ trunk/LMDZ.GENERIC/deftank/earth1d_Dry.callphys.def	(revision 1498)
@@ -167,6 +167,15 @@
 # Include hydrology ?
 hydrology     = .false.
+# Spectral Dependant Albedo ?
+albedo_spectral_mode=.false.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# If albedo_spectral_mode=.true., albedosnow becomes the 0.5 micron snow albedo.
+#
+# albedosnow = 0.95  (0.73 Sun-integrated) for fresh snow.
+#            = 0.50  (0.39 Sun-integrated) for dirty snow.
+#            = 0.645 (0.50 Sun-integrated) for 'realistic' snow.
+# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 # H2O snow (and ice) albedo ?
-albedosnow    = 0.5
+albedosnow    = 0.50
 # Maximum sea ice thickness ?
 maxicethick   = 0.5
@@ -178,4 +187,6 @@
 ## CO2 options 
 ## ~~~~~~~~~~~
+# Co2 ice albedo ?
+albedoco2ice   = 0.5
 # call CO2 condensation ?
 co2cond       = .false.
