Changeset 4170 for trunk/LMDZ.COMMON/libf/evolution/surface.F90

Timestamp:

Apr 3, 2026, 4:34:51 PM (4 days ago)

Author:

jbclement

Message:

PEM:

• Deletion of 'flux_ssice' ('zqdsdif_tot') from the "startfi.nc" as it is not needed.
• Using the yearly average flux for the sublimating subsurface ice instead of the value at last timestep.
• Keeping a clear separation between the subsurface ice flux and the surface ice tendency.
• Making sure that subsurface ice depth is well given to the PCM at the end of the PEM (ice table VS layering).

JBC

File:

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

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

@@ -91 +91 @@
 if (allocated(albedo_PCM)) deallocate(albedo_PCM)
 if (allocated(albedodat_PCM)) deallocate(albedodat_PCM)
-if (allocated(emissivity_PCM)) deallocate(emissivity_PCM )
+if (allocated(emissivity_PCM)) deallocate(emissivity_PCM)
 
 END SUBROUTINE end_surface