start debug tests

.gitlab-ci.yml

@@ -50,8 +50,8 @@ run_tests_mpi1:
   tags: [rubar20]
   script:
     - cd DataFileComparator
-    - echo '' > result_test.log
-    - echo "****************Test unitaire sur le cas 1**********************" >> result_test.log
+    - echo '' > result_test1.log
+    - echo "****************Test unitaire sur le cas 1**********************" >> result_test1.log
     - echo "Testing rubar20_MPI..."
     - mpirun -n 2 ../code/rubar20_MPI ../cas_tests/trubar20r20011208donnees/barrag1 >> result_test1.log
     - cd ..
@@ -61,8 +61,8 @@ run_tests_mpi2:
   tags: [rubar20]
   script:
     - cd DataFileComparator
-    - echo '' > result_test.log
-    - echo "****************Test unitaire sur le cas 2**********************" >> result_test.log
+    - echo '' > result_test2.log
+    - echo "****************Test unitaire sur le cas 2**********************" >> result_test2.log
     - echo "Testing rubar20_MPI..."
     - mpirun -n 2 ../code/rubar20_MPI ../cas_tests/trubar20r20011208donnees/barrag2 >> result_test2.log
     - cd ..
@@ -72,8 +72,8 @@ run_tests_mpi3:
   tags: [rubar20]
   script:
     - cd DataFileComparator
-    - echo '' > result_test.log
-    - echo "****************Test unitaire sur le cas 2**********************" >> result_test.log
+    - echo '' > result_test3.log
+    - echo "****************Test unitaire sur le cas 3**********************" >> result_test3.log
     - echo "Testing rubar20_MPI..."
     - mpirun -n 2 ../code/rubar20_MPI ../cas_tests/trubar20r20011208donnees/barrag3 >> result_test3.log
     - cd ..

DataFileComparator/DataFileComparator.f90

@@ -19,7 +19,7 @@ program DataFileComparator
         call exit(1)
     endif
     call GetArguments()
-    print*,
+    print*,""
     print*,"Paramètres d'entrée :"
     print*,trim(Filename1)
     print*,trim(Filename2)

DataFileComparator/UnitTest.bash

@@ -4,21 +4,21 @@ echo
 printf '\033[;46mCas tests en eau claire' $i
 printf '\033[0m'
 echo '' > result_test.log
-for i in 1
+for i in 1 2 3 4 5 6b 7 8 9 10
 do
 	echo
 	echo
 	#chemin des études
 	STUDY_REF_PATH=../Tests_Reference/trubar20r20011208donnees/T$i/barrag$i
 	STUDY_COMP_PATH=../cas_tests/trubar20r20011208donnees/barrag$i
-	
+
 	#Préparation du fichier de sortie
 	echo "****************Test unitaire sur le cas $i**********************" >> result_test.log
-	
+
 	#Execution du code Rubar20 qui a été au préalable comoilé dans le Makefile
 	printf '\033[;45mExécution du code Rubar20 sur le cas test %s' $i
 	printf '\033[0m'
-	 mpirun -np $NUM_PROC ./rubar20mpi_terraz $STUDY_COMP_PATH >> result_test.log
+	 mpirun -np $NUM_PROC ../code/rubar20_MPI $STUDY_COMP_PATH >> result_test.log
 
 	#initialisation variables pour TRXYH
 	PRES_X=3
@@ -29,14 +29,14 @@ do
 
 	#Création des fichiers xyh
 	if [ -f $STUDY_REF_PATH.xyh ] && [ $CREA_XYH -eq 0 ]; then
-		echo	
+		echo
 		echo "Utilisation du fichier xyh existant pour les résultats de référence, Test $i"
 	else
 		echo
 		echo "Creation du fichier xyh pour les résultats de référence, Test $i"
 		../TRXYH/a.out $STUDY_REF_PATH $CHOICE $PRES_X $PRES_H >> result_test.log
 	fi
-	
+
 	echo "Creation du fichier xyh pour les résultats calculés, Test $i"
 	../TRXYH/a.out $STUDY_COMP_PATH $CHOICE $PRES_X $PRES_H >> result_test.log
 
@@ -54,17 +54,17 @@ do
 	../DataFileComparator/DataFileComparator.sh $FILENAME_REF $FILENAME_COMP $NUM_LINES_TO_COMPARE $NUM_COLUMNS $COLUMN_NUM $TOLERANCE >> result_test.log
 	strErrorCode=$?
 	echo "Résultat du test :"
-	if [ "$strErrorCode" -eq 0 ]; then 
+	if [ "$strErrorCode" -eq 0 ]; then
 		printf '\033[;37;42mTEST %s PASSED' $i
 		printf '\033[0m'
-		
+
 	else
 		printf '\033[;37;41mTEST %s FAILED' $i
 		printf '\033[0m'
 	fi
-	
+
 	echo >> result_test.log
-done	
+done
 
 printf '\033[0m\n'
 echo

code/modules_comptage.f90

@@ -562,8 +562,10 @@
       print*, ne_loc
       deallocate(eptr, nodes, npart)
 #else /* WITH_METIS */
-      allocate(itri(ne))
-      call indexArrayReal(ne, xe, itri)
+!       allocate(itri(ne))
+!       xe(:)=xe(:)*(-1)
+!       call indexArrayReal(ne, xe, itri)
+!       xe(:)=xe(:)*(-1)
       k=1 ! compteur des mailles globales
       do i=0,np-1
         if (i<surplus) then
@@ -582,7 +584,13 @@
           end do
         end if
       end do
-      deallocate(itri)
+!       if (np.eq.2) then
+!         machine(:)=0
+!         ne_loc(0)=ne
+! !         machine(ne)=0
+!         ne_loc(1)=0
+!       end if
+!       deallocate(itri)
 #endif /* WITH_METIS */
 
 !       machine(:)=0