Comment out validation for benchmarking.

stubbiali · Jan 8, 2024 · 21781b0 · 21781b0
1 parent f64acc7
commit 21781b0
Show file tree

Hide file tree

Showing 8 changed files with 28 additions and 28 deletions.
diff --git a/src/cloudsc_c/cloudsc/cloudsc_driver.c b/src/cloudsc_c/cloudsc/cloudsc_driver.c
@@ -261,11 +261,11 @@ void cloudsc_driver(int numthreads, int numcols, int nproma) {
   printf(" %10d%10d%10d%10d%10d %4d : %10d%10d%10d TOTAL\n",
 	 numthreads, numcols, numcols, nblocks, nproma, -1, (int)(tdiff * 1000.), (int)zmflops, (int)zthrput);
 
-  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
-		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
-		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
-		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
-		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
+//  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
+//		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
+//		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
+//		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
+//		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
 
   free(plcrit_aer); // ALLOCATE(PLCRIT_AER(KLON,KLEV))
   free(picrit_aer); // ALLOCATE(PICRIT_AER(KLON,KLEV))

diff --git a/src/cloudsc_cuda/cloudsc/cloudsc_driver.cu b/src/cloudsc_cuda/cloudsc/cloudsc_driver.cu
@@ -483,11 +483,11 @@ void cloudsc_driver(int numthreads, int numcols, int nproma) {
   printf(" %10d%10d%10d%10d%10d %4d : %10d%10d TOTAL\n",
 	 numthreads, numcols, numcols, nblocks, nproma, -1, (int)(tdiff * 1000.), (int)zmflops);
 
-  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
-		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
-		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
-		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
-		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
+//   cloudsc_validate(klon, nlev, nclv, numcols, nproma,
+// 		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
+// 		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
+// 		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
+// 		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
 
   free(plcrit_aer); // ALLOCATE(PLCRIT_AER(KLON,KLEV))
   free(picrit_aer); // ALLOCATE(PICRIT_AER(KLON,KLEV))

diff --git a/src/cloudsc_cuda/cloudsc/cloudsc_driver_hoist.cu b/src/cloudsc_cuda/cloudsc/cloudsc_driver_hoist.cu
@@ -524,11 +524,11 @@ void cloudsc_driver(int numthreads, int numcols, int nproma) {
   printf(" %10d%10d%10d%10d%10d %4d : %10d%10d TOTAL\n",
 	 numthreads, numcols, numcols, nblocks, nproma, -1, (int)(tdiff * 1000.), (int)zmflops);
 
-  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
-		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
-		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
-		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
-		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
+//   cloudsc_validate(klon, nlev, nclv, numcols, nproma,
+// 		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
+// 		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
+// 		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
+// 		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
 
   free(plcrit_aer); 
   free(picrit_aer); 

diff --git a/src/cloudsc_fortran/dwarf_cloudsc.F90 b/src/cloudsc_fortran/dwarf_cloudsc.F90
@@ -96,7 +96,7 @@ PROGRAM DWARF_CLOUDSC
      & YRCST, YRTHF, YRECLDP)
 
 ! Validate the output against serialized reference data
-CALL GLOBAL_STATE%VALIDATE(NPROMA, NGPTOT, NGPTOTG)
+!CALL GLOBAL_STATE%VALIDATE(NPROMA, NGPTOT, NGPTOTG)
 
 ! Tear down MPI environment
 CALL CLOUDSC_MPI_END()

diff --git a/src/cloudsc_gpu/dwarf_cloudsc_gpu.F90 b/src/cloudsc_gpu/dwarf_cloudsc_gpu.F90
@@ -291,7 +291,7 @@ PROGRAM DWARF_CLOUDSC
 
 
 ! Validate the output against serialized reference data
-CALL GLOBAL_STATE%VALIDATE(NPROMA, NGPTOT, NGPTOTG)
+!CALL GLOBAL_STATE%VALIDATE(NPROMA, NGPTOT, NGPTOTG)
 
 ! Tear down MPI environment
 CALL CLOUDSC_MPI_END()

diff --git a/src/cloudsc_hip/cloudsc/cloudsc_driver.cpp b/src/cloudsc_hip/cloudsc/cloudsc_driver.cpp
@@ -484,11 +484,11 @@ void cloudsc_driver(int numthreads, int numcols, int nproma) {
   printf(" %10d%10d%10d%10d%10d %4d : %10d%10d TOTAL\n",
 	 numthreads, numcols, numcols, nblocks, nproma, -1, (int)(tdiff * 1000.), (int)zmflops);
 
-  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
-		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
-		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
-		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
-		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
+//  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
+//		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
+//		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
+//		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
+//		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
 
   free(plcrit_aer); // ALLOCATE(PLCRIT_AER(KLON,KLEV))
   free(picrit_aer); // ALLOCATE(PICRIT_AER(KLON,KLEV))

diff --git a/src/cloudsc_hip/cloudsc/cloudsc_driver_hoist.cpp b/src/cloudsc_hip/cloudsc/cloudsc_driver_hoist.cpp
@@ -525,11 +525,11 @@ void cloudsc_driver(int numthreads, int numcols, int nproma) {
   printf(" %10d%10d%10d%10d%10d %4d : %10d%10d TOTAL\n",
 	 numthreads, numcols, numcols, nblocks, nproma, -1, (int)(tdiff * 1000.), (int)zmflops);
 
-  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
-		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
-		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
-		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
-		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
+//  cloudsc_validate(klon, nlev, nclv, numcols, nproma,
+//		   plude, pcovptot, prainfrac_toprfz, pfsqlf, pfsqif,
+//		   pfcqlng, pfcqnng, pfsqrf, pfsqsf, pfcqrng, pfcqsng,
+//		   pfsqltur, pfsqitur, pfplsl, pfplsn, pfhpsl, pfhpsn,
+//		   tend_loc_a, tend_loc_q, tend_loc_t, tend_loc_cld);
 
   free(plcrit_aer); 
   free(picrit_aer); 

diff --git a/src/cloudsc_loki/dwarf_cloudsc.F90 b/src/cloudsc_loki/dwarf_cloudsc.F90
@@ -120,7 +120,7 @@ PROGRAM DWARF_CLOUDSC
 #endif
 
 ! Validate the output against serialized reference data
-CALL GLOBAL_STATE%VALIDATE(NPROMA, NGPTOT, NGPTOTG)
+!CALL GLOBAL_STATE%VALIDATE(NPROMA, NGPTOT, NGPTOTG)
 
 ! Tear down MPI environment
 CALL CLOUDSC_MPI_END()