Changeset 3789 for trunk/LMDZ.COMMON/libf/evolution/pemredem.F90

Timestamp:

Jun 3, 2025, 5:19:45 PM (2 weeks ago)

Author:

jbclement

Message:

PEM:
Few corrections for the layering algorithm, in particular when a dust lag layer is created.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/pemredem.F90 (modified) (1 diff)

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

@@ -104 +104 @@
         call put_field('stratif_slope'//num//'_h_dust','Layering dust height',stratif_array(:,islope,:,4),Year)
         call put_field('stratif_slope'//num//'_h_pore','Layering pore height',stratif_array(:,islope,:,5),Year)
-        call put_field('stratif_slope'//num//'_icepore_volfrac','Layering ice pore volume fraction',stratif_array(:,islope,:,6),Year)
+        call put_field('stratif_slope'//num//'_poreice_volfrac','Layering ice pore volume fraction',stratif_array(:,islope,:,6),Year)
     enddo
     deallocate(stratif_array)