diff --git a/examples/all-sky/rrtmgp_allsky.F90 b/examples/all-sky/rrtmgp_allsky.F90 index e338044e5..6459032cd 100644 --- 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)