Set intent(out) stub MOM_generic_tracer arguments

  Added code to set all intent(out) arguments in the stub version of the
MOM_generic_tracer routines MOM_generic_tracer_stock(),
MOM_generic_tracer_min_max() and MOM_generic_tracer_get() to avoid compile-time
warnings.  These stub routines are never supposed to be used, and there would be
a fatal error during the registration phase if they are used.  The values that
are set in these stub routines are extremely large or otherwise nonsensical so
that it would make it easier to debug them if they were used accidentally.  All
answers are bitwise identical in any cases that run successfully.

Author: Hallberg-NOAA

config_src/external/GFDL_ocean_BGC/MOM_generic_tracer.F90

@@ -16,7 +16,7 @@ module MOM_generic_tracer
 ! ### These imports should not reach into FMS directly ###
 
 use MOM_ALE_sponge, only : ALE_sponge_CS
-use MOM_coms, only : EFP_type
+use MOM_coms, only : EFP_type, real_to_EFP
 use MOM_diag_mediator, only : diag_ctrl
 use MOM_error_handler, only : MOM_error, FATAL
 use MOM_file_parser, only : param_file_type
@@ -195,8 +195,14 @@ function MOM_generic_tracer_stock(h, stocks, G, GV, CS, names, units, stock_inde
   integer                                           :: MOM_generic_tracer_stock !< Return value, the
                                                                    !! number of stocks calculated here.
 
+  integer :: m
   MOM_generic_tracer_stock = 0
 
+  ! These should never be used, but they are set to avoid compile-time warnings
+  do m=1,size(names) ; names(m) = "" ; enddo
+  do m=1,size(units) ; units(m) = "" ; enddo
+  do m=1,size(stocks) ; stocks(m) = real_to_EFP(0.0) ; enddo
+
 end function MOM_generic_tracer_stock
 
 !> This subroutine finds the global min and max of either of all available
@@ -227,8 +233,24 @@ function MOM_generic_tracer_min_max(ind_start, got_minmax, gmin, gmax, G, CS, na
   integer                                       :: MOM_generic_tracer_min_max !< Return value, the
                                                           !! number of tracers done here.
 
+  integer :: m
+
   MOM_generic_tracer_min_max = 0
 
+  ! These should never be used, but they are set to avoid compile-time warnings.  Note that the minimum values
+  ! are delibarately set to be larger than the maximum values.
+  got_minmax(:) = .false.
+  gmax(:) = -huge(gmax)
+  gmin(:) = huge(gmin)
+  do m=1,size(names) ; names(m) = "" ; enddo
+  do m=1,size(units) ; units(m) = "" ; enddo
+  if (present(xgmin)) xgmin(:) = 0.0
+  if (present(ygmin)) ygmin(:) = 0.0
+  if (present(zgmin)) zgmin(:) = 0.0
+  if (present(xgmax)) xgmax(:) = 0.0
+  if (present(ygmax)) ygmax(:) = 0.0
+  if (present(zgmax)) zgmax(:) = 0.0
+
 end function MOM_generic_tracer_min_max
 
 !> This subroutine calculates the surface state and sets coupler values for
@@ -271,6 +293,8 @@ subroutine MOM_generic_tracer_get(name,member,array, CS)
                                                   ! arbitrary units [A]
   character(len=128), parameter :: sub_name = 'MOM_generic_tracer_get'
 
+  array(:,:,:) = huge(array)
+
 end subroutine MOM_generic_tracer_get
 
 !> This subroutine deallocates the memory owned by this module.