Changeset 5699 for LMDZ6/trunk/libf/phylmd/cv3_routines.f90

Timestamp:

Jun 13, 2025, 9:01:23 PM (3 weeks ago)

Author:

yann meurdesoif

Message:

Convection GPU porting : remove zilch function (set to 0 flattened array) or similar...
YM

File:

• LMDZ6/trunk/libf/phylmd/cv3_routines.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/cv3_routines.f90

@@ -2520 +2520 @@
 ! ---  TO REPRESENT EQUAL PROBABILITIES OF MIXING
 ! =====================================================================
-
-  CALL zilch(asum, nloc*nd)
-  CALL zilch(csum, nloc*nd)
-  CALL zilch(csum, nloc*nd)
+  asum(1:nloc,1:nd) = 0.
+  csum(1:nloc,1:nd) = 0.
 
   DO il = 1, ncum
@@ -2688 +2686 @@
 
 ! MAF: renormalisation de MENT
-  CALL zilch(zm, nloc*na)
+  zm(1:nloc,1:na) = 0.
+  
   DO jm = 1, nl
     DO im = 1, nl
@@ -2919 +2918 @@
     IF (num1<=0) GO TO 400
 
-    CALL zilch(wdtrain, ncum)
+    wdtrain(1:ncum) = 0.0