Fafmip limit mask (#305)

* Ensure tmask_limit is consistent across all FAFMIP temperature prognostic tracers
mom-ocean · Sep 11, 2019 · b8ea1c1 · b8ea1c1
1 parent cc35eeb
commit b8ea1c1
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/mom5/ocean_tracers/ocean_tracer.F90 b/src/mom5/ocean_tracers/ocean_tracer.F90
@@ -2868,6 +2868,12 @@ subroutine compute_tmask_limit(Time, T_prog)
       enddo
   endif
 
+  ! ensure that redist_heat and added_heat masks are the same as temp
+
+  if ( index_redist_heat /= -1 ) T_prog(index_redist_heat)%tmask_limit = T_prog(index_temp)%tmask_limit
+  if ( index_added_heat /= -1 ) T_prog(index_added_heat)%tmask_limit = T_prog(index_temp)%tmask_limit
+
+
 
   ! debugging and diagnostics  
   do n=1,num_prog_tracers