Changeset 5864 for LMDZ6

Timestamp:

Nov 4, 2025, 10:09:28 AM (2 weeks ago)

Author:

acaubel

Message:

Modified to avoid rounding erreur that implies change of land fraction (temporary work around waiting for cleaner solution).

File:

• LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90

@@ -139 +139 @@
 ! Normalize to force total fraction to be equal one
        DO i= 1, klon
-          tmpsum = SUM(pctsrf(i,:))
-          DO nsrf = 1, nbsrf
-             pctsrf(i,nsrf) = pctsrf(i,nsrf) / tmpsum
-          END DO
+         tmpsum = SUM(pctsrf(i,:))
+         IF (tmpsum-1. > 1.e-14) THEN ! avoid rounding erreur that change land fraction
+           DO nsrf = 1, nbsrf
+              pctsrf(i,nsrf) = pctsrf(i,nsrf) / tmpsum
+           END DO
+         ENDIF
        END DO