Cray supports minloc and maxloc but not for OpenMP

earth-system-radiation · Nov 17, 2023 · 5d9613d · 5d9613d
1 parent c02ba49
commit 5d9613d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/rrtmgp-kernels/accel/mo_gas_optics_rrtmgp_kernels.F90 b/rrtmgp-kernels/accel/mo_gas_optics_rrtmgp_kernels.F90
@@ -252,7 +252,7 @@ subroutine compute_tau_absorption(                &
       !$omp target teams distribute parallel do simd
       do icol = 1,ncol
         itropo_lower(icol,2) = nlay
-#if defined(__NVCOMPILER)
+#if ( defined(_CRAYFTN) && defined(_OPENMP) ) || defined(__NVCOMPILER)
         itropo_upper(icol,1) = 1
         call minmaxloc(icol, tropo, play, itropo_lower(icol,1), itropo_upper(icol,2))
 #else
@@ -266,7 +266,7 @@ subroutine compute_tau_absorption(                &
       !$omp target teams distribute parallel do simd
       do icol = 1,ncol
         itropo_lower(icol,1) = 1
-#if defined(__NVCOMPILER)
+#if ( defined(_CRAYFTN) && defined(_OPENMP) ) || defined(__NVCOMPILER)
         itropo_upper(icol,2) = nlay
         call minmaxloc(icol, tropo, play, itropo_lower(icol,2), itropo_upper(icol,1))
 #else