Changeset 5867

Timestamp:

Nov 17, 2025, 11:53:44 AM (4 hours ago)

Author:

yann meurdesoif

Message:

Bug fix in cdrag
Arrays are addressed inside a klon loop, so must use indice instead of whole array.
YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/cdrag_mod.f90 (modified) (1 diff)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/cdrag_mod.f90

@@ -528 +528 @@
          cdh(i)=MIN(cdhh(i),cdhmax)
        ENDIF
-       z0m = rugos_itm(:,2)
-       z0h = rugos_ith(:,2)
+       z0m(i) = rugos_itm(i,2)
+       z0h(i) = rugos_ith(i,2)
      ELSE ! (nsrf == is_oce)
        zri(i) = zgeop1(i)*(ztvd-ztsolv)/(zdu2*ztvd)