Changeset 3347 for trunk


Ignore:
Timestamp:
May 27, 2024, 9:16:14 PM (6 months ago)
Author:
llange
Message:

Mars PEM
Fixing bug in update_soilthermal properties: in case of an ice table, the dry regolith was wrongly initialized.
LL

Location:
trunk/LMDZ.COMMON/libf/evolution
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r3345 r3347  
    324324== 23/05/2024 == JBC
    325325Making "writediagsoilpem.F90" work in 3D with the correct PEM soil depth dimension.
     326
     327== 27/05/2024 == LL
     328Fixing bug in update_soilthermal properties: in case of an ice table, the dry regolith was wrongly initialized.

  • trunk/LMDZ.COMMON/libf/evolution/soil_thermalproperties_mod.F90

    r3327 r3347  
    173173                enddo
    174174        ! 3.2 Build the new ti
    175                 do isoil = 1,iref
    176                     TI_PEM(ig,isoil,islope) = TI_PEM(ig,1,islope)
    177                 enddo
    178175                if (iref < nsoil_PEM) then
    179176                    if (iref == iend) then
Note: See TracChangeset for help on using the changeset viewer.