fix map test for non-openmp builds

NCAR · Mar 20, 2024 · e1a8937 · e1a8937
1 parent 7517010
commit e1a8937
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/test/unit/util/map.F90 b/test/unit/util/map.F90
@@ -133,7 +133,12 @@ subroutine test_map_t( )
 
     from = (/ 10.0_dk, 20.0_dk, 30.0_dk /)
 
+#ifdef MUSICA_USE_OPENMP
     n_threads = omp_get_num_threads( )
+#else
+    n_threads = 1
+#endif
+
     allocate( omp_to( n_threads, 3 ) )
 
     map = map_t( config, from_labels, to_labels )