Remove config_Redi_closure='equalGM'

E3SM-Project · Apr 20, 2022 · 88fd9c0 · 88fd9c0
1 parent 72ac093
commit 88fd9c0
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 17 deletions.
diff --git a/components/mpas-ocean/bld/namelist_files/namelist_definition_mpaso.xml b/components/mpas-ocean/bld/namelist_files/namelist_definition_mpaso.xml
@@ -404,9 +404,9 @@ Default: Defined in namelist_defaults.xml
 
 <entry id="config_Redi_closure" type="char*1024"
 	category="Redi_isopycnal_mixing" group="Redi_isopycnal_mixing">
-Control what type of function is used for Redi $\kappa$. For 'equalGM', RediKappa is set to gmBolusKappa, so picks up the closure used by GM.
+Control what type of function is used for Redi $\kappa$.
 
-Valid values: 'constant', 'equalGM', 'data'
+Valid values: 'constant', 'data'
 Default: Defined in namelist_defaults.xml
 </entry>
 

diff --git a/components/mpas-ocean/src/Registry.xml b/components/mpas-ocean/src/Registry.xml
@@ -295,8 +295,8 @@
 					possible_values=".true. or .false."
 		/>
 		<nml_option name="config_Redi_closure" type="character" default_value="constant" units="unitless"
-					description="Control what type of function is used for Redi $\kappa$. For 'equalGM', RediKappa is set to gmBolusKappa, so picks up the closure used by GM."
-					possible_values="'constant', 'equalGM', 'data'"
+					description="Control what type of function is used for Redi $\kappa$."
+					possible_values="'constant', 'data'"
 		/>
 		<nml_option name="config_Redi_constant_kappa" type="real" default_value="600.0" units="m^2 s^{-1}"
 					description="The Redi diffusion coefficient. Only used when config_Redi_closure = 'constant'."

diff --git a/components/mpas-ocean/src/shared/mpas_ocn_gm.F b/components/mpas-ocean/src/shared/mpas_ocn_gm.F
@@ -758,19 +758,7 @@ subroutine ocn_GM_compute_Bolus_velocity(statePool, &
             deallocate (RossbyRadiusTaper)
          end if
 
-         if (config_Redi_closure == 'equalGM') then
-            ! Set Redi closure to be the same as the GM closure, i.e. if
-            ! config_GM_closure is EdenGreatbatch or Visbeck, you will see those
-            ! same closure fields in RediKappa. The horizontal tapering still
-            ! comes from the config_Redi_horizontal_taper flag, not GM.
-            !$omp parallel
-            !$omp do schedule(runtime)
-            do iEdge=1, nEdges
-               RediKappa(iEdge) = RediHorizontalTaper(iEdge) * gmBolusKappa(iEdge)
-            end do
-            !$omp end do
-            !$omp end parallel
-         else if (config_Redi_closure == 'constant'.and. &
+         if (config_Redi_closure == 'constant'.and. &
                    config_Redi_horizontal_taper == 'RossbyRadius') then
             !$omp parallel
             !$omp do schedule(runtime)