Changeset 5703

Timestamp:

Jun 13, 2025, 9:38:50 PM (10 days ago)

Author:

yann meurdesoif

Message:

Convection GPU porting : change some loop name indices to avoid GPUmorphosis confusion (solve in future)

YM

Location:

LMDZ6/trunk/libf/phylmd

Files:

• cv3_routines.f90 (modified) (2 diffs)
• cv3p_mixing.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cv3_routines.f90

@@ -2355 +2355 @@
 ! ori        do 360 i=1,ncum*nlp
   DO j = 1, nl
-    DO i = 1, ncum
-      nent(i, j) = 0
+    DO il = 1, ncum
+      nent(il, j) = 0
 ! in convect3, m is computed in cv3_closure
 ! ori          m(i,1)=0.0
@@ -2366 +2366 @@
   DO j = 1, nl
     DO k = 1, nl
-      DO i = 1, ncum
-        qent(i, k, j) = rr(i, j)
-        uent(i, k, j) = u(i, j)
-        vent(i, k, j) = v(i, j)
-        elij(i, k, j) = 0.0
+      DO il = 1, ncum
+        qent(il, k, j) = rr(il, j)
+        uent(il, k, j) = u(il, j)
+        vent(il, k, j) = v(il, j)
+        elij(il, k, j) = 0.0
 !ym            ment(i,k,j)=0.0
 !ym            sij(i,k,j)=0.0

LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

@@ -117 +117 @@
 ! ori        do 360 i=1,ncum*nlp
   DO j = 1, nl
-    DO i = 1, ncum
-      nent(i, j) = 0
+    DO il = 1, ncum
+      nent(il, j) = 0
 ! in convect3, m is computed in cv3_closure
 ! ori          m(i,1)=0.0
@@ -128 +128 @@
   DO j = 1, nl
     DO k = 1, nl
-      DO i = 1, ncum
-        Qent(i, k, j) = rr(i, j)
-        uent(i, k, j) = u(i, j)
-        vent(i, k, j) = v(i, j) 
-        elij(i, k, j) = 0.0
-        hent(i, k, j) = 0.0
+      DO il = 1, ncum
+        Qent(il, k, j) = rr(il, j)
+        uent(il, k, j) = u(il, j)
+        vent(il, k, j) = v(il, j) 
+        elij(il, k, j) = 0.0
+        hent(il, k, j) = 0.0
 !AC!            Ment(i,k,j)=0.0
 !AC!            Sij(i,k,j)=0.0