Remove ALE by changing vertAleTransportTop

E3SM-Project · Sep 22, 2022 · 0091e31 · 0091e31
1 parent ef076d4
commit 0091e31
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_tendency.F b/components/mpas-ocean/src/shared/mpas_ocn_tendency.F
@@ -207,7 +207,7 @@ subroutine ocn_tend_thick(tendPool, forcingPool)!{{{
                                layerThickEdgeFlux, tendThick, err)
 
       ! Compute vertical advection term -d/dz(hw)
-      call ocn_thick_vadv_tend(vertAleTransportTop, &
+      call ocn_thick_vadv_tend(vertTransportVelocityTop, &
                                tendThick, err)
 
       ! Compute surface flux tendency
@@ -351,7 +351,7 @@ subroutine ocn_tend_vel(domain, tendPool, statePool, forcingPool, &
       !$acc               density, normRelVortEdge, montgomeryPotential, pressure, &
       !$acc               thermExpCoeff, salineContractCoeff, tangentialVelocity, &
       !$acc               layerThickEdgeFlux, kineticEnergyCell, sfcFlxAttCoeff, potentialDensity, &
-      !$acc               vertAleTransportTop, vertViscTopOfEdge, wettingVelocity)
+      !$acc               vertVelocityTop, vertViscTopOfEdge, wettingVelocity)
       !$acc enter data &
       !$acc    copyin(tendVel, sfcStress, sfcStressMag, &
       !$acc    ssh, normalVelocity, &
@@ -412,7 +412,7 @@ subroutine ocn_tend_vel(domain, tendPool, statePool, forcingPool, &
 
       ! Add vertical advection term -w du/dz
       call ocn_vel_vadv_tend(normalVelocity, layerThickEdgeFlux, &
-                             vertAleTransportTop, tendVel, err)
+                             vertVelocityTop, tendVel, err)
 
       ! Add pressure gradient
       call ocn_vel_pressure_grad_tend(ssh, pressure, surfacePressure, &
@@ -664,7 +664,7 @@ subroutine ocn_tend_tracer(tendPool, statePool, forcingPool, &
       !TEMPORARY - once diagnotics module ported, these should already
       !            be on the device
       !$acc update device (normalTransportVelocity, layerThickEdgeFlux, &
-      !$acc                vertAleTransportTop)
+      !$acc                vertVelocityTop)
 
       ! compute transport velocity to use for all tracers
 #ifdef MPAS_OPENACC
@@ -1096,7 +1096,7 @@ subroutine ocn_tend_tracer(tendPool, statePool, forcingPool, &
          ! Tracer budget is computed and stored within the tracer adv
          ! routine
          call ocn_tracer_advection_tend(tracerGroup, &
-                            normalThicknessFlux, vertAleTransportTop, &
+                            normalThicknessFlux, vertTransportVelocityTop, &
                             layerThickness, dt, tracerGroupTend, &
                             computeBudgets)