From 7ced954d3922dca762a793f0de06b9cc0e61f3ef Mon Sep 17 00:00:00 2001
From: Sergey Kosukhin <sergey.kosukhin@mpimet.mpg.de>
Date: Mon, 20 Nov 2023 01:22:36 +0200
Subject: [PATCH] Fix minmaxloc workaround

---
 rrtmgp-kernels/accel/mo_gas_optics_rrtmgp_kernels.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rrtmgp-kernels/accel/mo_gas_optics_rrtmgp_kernels.F90 b/rrtmgp-kernels/accel/mo_gas_optics_rrtmgp_kernels.F90
index 53d1ddc98..91ca01900 100644
--- 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(_CRAYFTN) && defined(_OPENMP) ) || defined(__NVCOMPILER)
+#if ( defined(_CRAYFTN) && _RELEASE_MAJOR <= 14 ) || ( 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(_CRAYFTN) && defined(_OPENMP) ) || defined(__NVCOMPILER)
+#if ( defined(_CRAYFTN) && _RELEASE_MAJOR <= 14 ) || ( defined(_OPENMP) && defined(__NVCOMPILER) )
         itropo_upper(icol,2) = nlay
         call minmaxloc(icol, tropo, play, itropo_lower(icol,2), itropo_upper(icol,1))
 #else