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

Author: jiandewang

Diff for: 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 for: 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 for: 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