added package condition in tendency tracers

E3SM-Project · Jul 29, 2024 · 24f24b8 · 24f24b8
1 parent 9ddd011
commit 24f24b8
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_tendency.F b/components/mpas-ocean/src/shared/mpas_ocn_tendency.F
@@ -830,13 +830,15 @@ subroutine ocn_tend_tracer(tendPool, statePool, forcingPool, &
                                   modifiedGroupName, &
                                   tracerGroupSurfaceFluxRunoff)
 
-         ! Get surface flux due to subglacial runoff array
-         ! only active tracers have subglacial runoff flux for now,
-         ! but we still need to associate for ALL tracers
-         modifiedGroupName = groupName // "SurfaceFluxSubglacialRunoff"
-         call mpas_pool_get_array(tracersSurfaceFluxPool, &
-                                  modifiedGroupName, &
-                                  tracerGroupSurfaceFluxSubglacialRunoff)
+         if (trim(config_subglacial_runoff_mode) == 'data') then
+             ! Get surface flux due to subglacial runoff array
+             ! only active tracers have subglacial runoff flux for now,
+             ! but we still need to associate for ALL tracers
+             modifiedGroupName = groupName // "SurfaceFluxSubglacialRunoff"
+             call mpas_pool_get_array(tracersSurfaceFluxPool, &
+                                      modifiedGroupName, &
+                                      tracerGroupSurfaceFluxSubglacialRunoff)
+         end if
 
          ! Get surface flux removed array to keep track of how much
          ! flux is ignored