Fix CCE OpenMP workaround (type bound functions not implemented in OM…

…P kernels)
earth-system-radiation · May 21, 2024 · f340df3 · f340df3
1 parent 96ed952
commit f340df3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/examples/all-sky/rrtmgp_allsky.F90 b/examples/all-sky/rrtmgp_allsky.F90
@@ -93,6 +93,7 @@ program rte_rrtmgp_allsky
 
   integer  :: nbnd, ngpt
   integer  :: icol, ilay, ibnd, iloop, igas
+  logical  :: top_is_at_1 ! CCE OMP workaround 
 
   character(len=8) :: char_input
   integer :: nUserArgs, nloops, ncol, nlay
@@ -248,9 +249,10 @@ program rte_rrtmgp_allsky
     !$acc         enter data create   (t_sfc, emis_sfc)
     !$omp target  enter data map(alloc:t_sfc, emis_sfc)
     ! Surface temperature
+    top_is_at_1 = atmos%top_is_at_1() ! CCE OMP workaround 
     !$acc kernels
     !$omp target
-    t_sfc = t_lev(1, merge(nlay+1, 1, atmos%top_is_at_1()))
+    t_sfc = t_lev(1, merge(nlay+1, 1, top_is_at_1))
     emis_sfc = 0.98_wp
     !$acc end kernels
     !$omp end target