omp directive syntax

earth-system-radiation · Jun 23, 2023 · 384beab · 384beab
1 parent 2caba63
commit 384beab
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/examples/all-sky/rrtmgp_allsky.F90 b/examples/all-sky/rrtmgp_allsky.F90
@@ -383,11 +383,11 @@ program rte_rrtmgp_allsky
   ! Clouds and aerosols used enter data - we won't release explicitly 
 
   ! fluxes - but not flux_dir, which used enter data 
-  !$acc        end data 
-  !$omp target end data
+  !$acc end        data 
+  !$omp end target data
   ! p_lay etc
-  !$acc        end data 
-  !$omp target end data
+  !$acc end        data 
+  !$omp end target data
 contains
   ! ----------------------------------------------------------------------------------
   subroutine compute_profiles(SST, ncol, nlay, p_lay, t_lay, p_lev, t_lev, q_lay, o3)
@@ -478,8 +478,8 @@ subroutine compute_profiles(SST, ncol, nlay, p_lay, t_lay, p_lev, t_lev, q_lay,
         t_lev(icol,ilay) = T
       end do 
     end do 
-    !$acc        end data
-    !$omp target end data
+    !$acc end        data
+    !$omp end target data
   end subroutine compute_profiles
   ! ----------------------------------------------------------------------------------
   subroutine stop_on_err(error_msg)