Adding default(present) to the parallel clauses.

MPAS-Dev · Jan 16, 2025 · eeecb13 · eeecb13
1 parent 63b1e58
commit eeecb13
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core_atmosphere/dynamics/mpas_atm_time_integration.F b/src/core_atmosphere/dynamics/mpas_atm_time_integration.F
@@ -2006,15 +2006,15 @@ subroutine atm_compute_vert_imp_coefs_work(nCells, moist_start, moist_end, dts,
       rcv = rgas/(cp-rgas)
       c2 = cp*rcv
 
-      !$acc parallel
+      !$acc parallel default(present)
       !$acc loop gang worker
 ! MGD bad to have all threads setting this variable?
       do k=1,nVertLevels
          cofrz(k) = dtseps*rdzw(k)
       end do
       !$acc end parallel
 
-      !$acc parallel
+      !$acc parallel default(present)
       !$acc loop gang worker private(b_tri,c_tri)
       do iCell = cellSolveStart,cellSolveEnd  !  we only need to do cells we are solving for, not halo cells