Ignore:
Timestamp:
Dec 10, 2024, 2:16:29 PM (13 days ago)
Author:
jbclement
Message:

PEM:
Using the correct subroutine to output 'ice_porefilling'.
JBC

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

Legend:

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

    r3538 r3543  
    513513== 09/12/2024 == JBC
    514514Fixing Norbert Schorghofer's subroutine which modified soil temperatures and was unwanted in the PEM loop.
     515
     516== 10/12/2024 == JBC
     517Using the correct subroutine to output 'ice_porefilling'.
  • trunk/LMDZ.COMMON/libf/evolution/pem.F90

    r3537 r3543  
    10031003            call writediagsoilpem(ngrid,'tsoil_PEM_slope'//str2,'tsoil_PEM','K',3,tsoil_PEM(:,:,islope))
    10041004            call writediagsoilpem(ngrid,'inertiesoil_PEM_slope'//str2,'TI_PEM','K',3,TI_PEM(:,:,islope))
    1005             if (icetable_dynamic) call writediagpem(ngrid,'ice_porefilling'//str2,'ice pore filling','-',3,ice_porefilling(:,:,islope))
     1005            if (icetable_dynamic) call writediagsoilpem(ngrid,'ice_porefilling'//str2,'ice pore filling','-',3,ice_porefilling(:,:,islope))
    10061006            if (adsorption_pem) then
    10071007                call writediagsoilpem(ngrid,'co2_ads_slope'//str2,'co2_ads','K',3,co2_adsorbded_phys(:,:,islope))
Note: See TracChangeset for help on using the changeset viewer.