Adding default(present) clauses to the parallel regions

Author: abishekg7

src/core_atmosphere/dynamics/mpas_atm_time_integration.F

@@ -6587,7 +6587,7 @@ subroutine atm_rk_dynamics_substep_finish( state, diag, nVertLevels, dynamics_su
       inv_dynamics_split = 1.0_RKIND / real(dynamics_split)
 
       if (dynamics_substep < dynamics_split) then
-         !$acc parallel
+         !$acc parallel default(present)
          !$acc loop gang worker
          do iEdge = edgeStart,edgeEnd
             !$acc loop vector
@@ -6621,7 +6621,7 @@ subroutine atm_rk_dynamics_substep_finish( state, diag, nVertLevels, dynamics_su
       end if
 
       if (dynamics_substep == 1) then
-         !$acc parallel
+         !$acc parallel default(present)
          !$acc loop gang worker
          do iEdge = edgeStart,edgeEnd
             !$acc loop vector
@@ -6638,7 +6638,7 @@ subroutine atm_rk_dynamics_substep_finish( state, diag, nVertLevels, dynamics_su
          end do
          !$acc end parallel
       else
-         !$acc parallel
+         !$acc parallel default(present)
          !$acc loop gang worker
          do iEdge = edgeStart,edgeEnd
             !$acc loop vector
@@ -6657,7 +6657,7 @@ subroutine atm_rk_dynamics_substep_finish( state, diag, nVertLevels, dynamics_su
       end if
 
       if (dynamics_substep == dynamics_split) then
-         !$acc parallel
+         !$acc parallel default(present)
          !$acc loop gang worker
          do iEdge = edgeStart,edgeEnd
             !$acc loop vector