diff --git a/src/cloudsc_c/cloudsc/cloudsc_driver.c b/src/cloudsc_c/cloudsc/cloudsc_driver.c index a44c56f2..d637983c 100644 --- 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 index d715aa68..47acb666 100644 --- 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 index 9d7d615e..44a15df3 100644 --- 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 index c67f8de7..c6dd5b67 100644 --- 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 index fbc5e321..ae093c35 100644 --- 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 index c03a877d..725a75a5 100644 --- 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 index 657bed97..03c4ad8d 100644 --- 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 index 71f6b576..d5a2435a 100644 --- 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()