Changeset 4134 for trunk/LMDZ.COMMON/libf/evolution/geometry.F90

Timestamp:

Mar 16, 2026, 3:24:12 PM (9 days ago)

Author:

jbclement

Message:

PEM:

• Add a periodic backup based on a single wrapper which builds PCM-compatible climate state and writes "restart" files.
• Remove condition "if (.not. allocated(*))" for more strict safeguard.

JBC

File:

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

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

@@ -84 +84 @@
 call get_dim_nc('nslope',nslope,found)
 if (.not. found) nslope = 1
-if (.not. allocated(longitudes)) allocate(longitudes(ngrid))
-if (.not. allocated(latitudes)) allocate(latitudes(ngrid))
-if (.not. allocated(cell_area)) allocate(cell_area(ngrid))
+allocate(longitudes(ngrid))
+allocate(latitudes(ngrid))
+allocate(cell_area(ngrid))
 call get_var_nc('longitude',longitudes)
 call get_var_nc('latitude',latitudes)