Changeset 3324 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

May 13, 2024, 9:11:35 AM (7 months ago)

Author:

llange

Message:

PEM
Correction of a bug when setting the albedo / emissivity: it should be the PCM
which sets the emissivity / albedo of the CO2 ice (because of CO2 snowfall) and
not the PEM. I thus removed the lines in the PEM accordingly
LL

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (1 diff)
• pem.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -296 +296 @@
 == 02/05/2024 == JBC
 Correction in the layering algorithm in case of a stratum which is disappearing + few cleanings.
+
+== 13/05/2024 == LL
+Correction of a bug when setting the albedo / emissivity: it should be the PCM
+which sets the emissivity / albedo of the CO2 ice (because of CO2 snowfall) and
+not the PEM. I thus removed the lines in the PEM accordingly 

trunk/LMDZ.COMMON/libf/evolution/pem.F90

@@ -822 +822 @@
                 tsurf_ave(ig,islope) = ave/timelen
                 ! set the surface albedo to be the ice albedo
-                if (latitude_deg(ig) > 0) then
-                   icap = 1
-                else
-                   icap = 2
-                endif
-                albedo(ig,1,islope) = albedice(icap)
-                albedo(ig,2,islope) = albedice(icap)
-                emis(ig,islope) = emisice(icap)
+!                if (latitude_deg(ig) > 0) then
+!                   icap = 1
+!                else
+!                   icap = 2
+!                endif
+!                albedo(ig,1,islope) = albedice(icap)
+!                albedo(ig,2,islope) = albedice(icap)
+!                emis(ig,islope) = emisice(icap)
             endif
         enddo