modified: config_src/external/GFDL_ocean_BGC/generic_tracer_utils.F90

modified: src/core/MOM_open_boundary.F90 modified: src/ice_shelf/MOM_ice_shelf_diag_mediator.F90
NOAA-EMC · Mar 6, 2024 · 392b215 · 392b215
1 parent 9dab914
commit 392b215
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 1 deletion.
diff --git a/config_src/external/GFDL_ocean_BGC/generic_tracer_utils.F90 b/config_src/external/GFDL_ocean_BGC/generic_tracer_utils.F90
@@ -280,6 +280,7 @@ end subroutine g_tracer_get_alias
   function g_tracer_is_prog(g_tracer)
     logical :: g_tracer_is_prog
     type(g_tracer_type), pointer :: g_tracer !< Pointer to tracer node
+    g_tracer_is_prog = -1
   end function g_tracer_is_prog
 
   !> get the next tracer in the list

diff --git a/src/core/MOM_open_boundary.F90 b/src/core/MOM_open_boundary.F90
@@ -854,7 +854,7 @@ subroutine initialize_segment_data(G, GV, US, OBC, PF)
 !       if (siz(4) == 1) segment%values_needed = .false.
         if (segment%on_pe) then
           if (OBC%brushcutter_mode .and. (modulo(siz(1),2) == 0 .or. modulo(siz(2),2) == 0)) then
-            write(mesg,'("Brushcutter mode sizes ",I6,I6))') siz(1),siz(2)
+            write(mesg,'("Brushcutter mode sizes ", I6, I6)') siz(1), siz(2)
             call MOM_error(WARNING, mesg // " " // trim(filename) // " " // trim(fieldname))
             call MOM_error(FATAL,'segment data are not on the supergrid')
           endif

diff --git a/src/ice_shelf/MOM_ice_shelf_diag_mediator.F90 b/src/ice_shelf/MOM_ice_shelf_diag_mediator.F90
@@ -555,6 +555,7 @@ integer function register_MOM_IS_static_field(module_name, field_name, axes, &
   endif
 
   register_static_field = primary_id
+  register_MOM_IS_static_field = primary_id
 
 end function register_MOM_IS_static_field
-Original file line number
+Diff line change
@@ Expand Up @@
       endif
       register_static_field = primary_id
+      register_MOM_IS_static_field = primary_id
     end function register_MOM_IS_static_field
@@ Expand Down @@