Changeset 5920

Timestamp:

Dec 9, 2025, 1:49:21 PM (2 days ago)

Author:

yann meurdesoif

Message:

Fix: run_off_ter is allocated uncompressed (klon)
YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/fonte_neige_mod.F90 (modified) (2 diffs)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/fonte_neige_mod.F90

@@ -435 +435 @@
     IF (nisurf == is_ter) THEN
        DO i = 1, knon
+          j = knindex(i)
           qsol(i) = qsol(i) + bil_eau_s(i)
-          run_off_ter(i) = run_off_ter(i) + MAX(qsol(i) - max_eau_sol, 0.0)
+          run_off_ter(j) = run_off_ter(j) + MAX(qsol(i) - max_eau_sol, 0.0)
 #ifdef ISO
           runoff_diag(i) = MAX(qsol(i) - max_eau_sol, 0.0)
@@ -465 +466 @@
 !****************************************************************************************
     DO i = 1, knon
-       ffonte_global(knindex(i),nisurf)    = ffonte(i)
-       fqfonte_global(knindex(i),nisurf)   = fqfonte(i)
-       fqcalving_global(knindex(i),nisurf) = fqcalving(i)
+       j = knindex(i)
+       ffonte_global(j, nisurf)    = ffonte(i)
+       fqfonte_global(j, nisurf)   = fqfonte(i)
+       fqcalving_global(j, nisurf) = fqcalving(i)
     ENDDO