remove extraneous betaEdge assignments

E3SM-Project · Apr 4, 2022 · c744e64 · c744e64
1 parent 7981ebb
commit c744e64
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_gm.F b/components/mpas-ocean/src/shared/mpas_ocn_gm.F
@@ -1026,7 +1026,6 @@ subroutine ocn_GM_init(domain, err)!{{{
             !$omp parallel
             !$omp do schedule(runtime)
             do iEdge=1,nEdges
-              betaEdge(iEdge) = 2.0_RKIND*omega*cos(latEdge(iEdge)) / sphere_radius
               gmBolusKappa(iEdge) = config_GM_spatially_variable_max_kappa
             end do
             !$omp end do
@@ -1043,7 +1042,6 @@ subroutine ocn_GM_init(domain, err)!{{{
             !$omp parallel
             !$omp do schedule(runtime)
             do iEdge=1,nEdges
-              betaEdge(iEdge) = 2.0_RKIND*omega*cos(latEdge(iEdge)) / sphere_radius
               gmBolusKappa(iEdge) = config_GM_spatially_variable_max_kappa
             end do
             !$omp end do