Changeset 3324


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/evolution/changelog.txt

    r3321 r3324  
    296296== 02/05/2024 == JBC
    297297Correction in the layering algorithm in case of a stratum which is disappearing + few cleanings.
     298
     299== 13/05/2024 == LL
     300Correction of a bug when setting the albedo / emissivity: it should be the PCM
     301which sets the emissivity / albedo of the CO2 ice (because of CO2 snowfall) and
     302not the PEM. I thus removed the lines in the PEM accordingly
  • trunk/LMDZ.COMMON/libf/evolution/pem.F90

    r3319 r3324  
    822822                tsurf_ave(ig,islope) = ave/timelen
    823823                ! set the surface albedo to be the ice albedo
    824                 if (latitude_deg(ig) > 0) then
    825                    icap = 1
    826                 else
    827                    icap = 2
    828                 endif
    829                 albedo(ig,1,islope) = albedice(icap)
    830                 albedo(ig,2,islope) = albedice(icap)
    831                 emis(ig,islope) = emisice(icap)
     824!                if (latitude_deg(ig) > 0) then
     825!                   icap = 1
     826!                else
     827!                   icap = 2
     828!                endif
     829!                albedo(ig,1,islope) = albedice(icap)
     830!                albedo(ig,2,islope) = albedice(icap)
     831!                emis(ig,islope) = emisice(icap)
    832832            endif
    833833        enddo
Note: See TracChangeset for help on using the changeset viewer.