Changeset 747 for codes/icosagcm/devel/src/unstructured

Timestamp:

10/05/18 13:42:49 (6 years ago)

Author:

dubos

Message:

devel/unstructured : more fixes to mixed precision

File:

• codes/icosagcm/devel/src/unstructured/data_unstructured.F90 (modified) (1 diff)

codes/icosagcm/devel/src/unstructured/data_unstructured.F90

@@ -205 +205 @@
     Riv2(:,:)=Riv2_(:,:)
     wee(:,:) = wee_(:,:)
-    PRINT *, MAXVAL(ABS(Ai))
-    PRINT *, MAXVAL(ABS(Av))
-    PRINT *, MAXVAL(ABS(fv))
-    PRINT *, MAXVAL(ABS(le_de))
-    PRINT *, MAXVAL(ABS(Riv2))
-    PRINT *, MAXVAL(ABS(wee))
-    PRINT *, MINVAL(right), MAXVAL(right)
-    PRINT *, MINVAL(right), MAXVAL(left)
+    PRINT *, 'Max Ai : ',    MAXVAL(ABS(Ai))
+    PRINT *, 'Max Av : ',    MAXVAL(ABS(Av))
+    PRINT *, 'Max fv : ',    MAXVAL(ABS(fv))
+    PRINT *, 'Max le_de : ', MAXVAL(ABS(le_de))
+    PRINT *, 'Max Riv2 : ',  MAXVAL(ABS(Riv2))
+    PRINT *, 'Max wee : ',   MAXVAL(ABS(wee))
+    PRINT *, MINVAL(right),  MAXVAL(right)
+    PRINT *, MINVAL(right),  MAXVAL(left)
     PRINT *,' ... Done.'
     IF(nb_threads==0) nb_threads=OMP_GET_MAX_THREADS()