feature/gdas_init This commit references ufs-community#33 and ufs-com…

…munity#69.

chgres_cube - Fix three argument mismatches in call to
error handler routine.

sorc/chgres_cube.fd/input_data.F90

@@ -5531,7 +5531,7 @@ subroutine handle_grib_error(vname,lev,method,value,varnum, iret,var,var8,var3d)
   else
     call error_handler("ERROR USING MISSING_VAR_METHOD. PLEASE SET VALUES IN" // &
                        " VARMAP TABLE TO ONE OF: set_to_fill, set_to_NaN,"// &
-                       " , skip, or stop.")
+                       " , skip, or stop.", 1)
   endif
 
 end subroutine handle_grib_error
@@ -5561,7 +5561,7 @@ subroutine read_grib_soil(the_file,inv_file,vname,vname_file,dummy3d,rc)
                              ':0.4-1 m below ground:', ':1-2 m below ground:'/)
   else
     rc = -1
-    call error_handler("reading soil levels. File must have 4 soil levels.")
+    call error_handler("reading soil levels. File must have 4 soil levels.", rc)
   endif
 
   call get_var_cond(vname,this_miss_var_method=method,this_miss_var_value=value, &

sorc/chgres_cube.fd/program_setup.f90

@@ -277,7 +277,7 @@ subroutine read_setup_namelist
 
  if (trim(input_type) == "grib2") then
    if (trim(grib2_file_input_grid) == "NULL" .or. trim(grib2_file_input_grid) == "") then
-     call error_handler("FOR GRIB2 DATA, PLEASE PROVIDE GRIB2_FILE_INPUT_GRID")
+     call error_handler("FOR GRIB2 DATA, PLEASE PROVIDE GRIB2_FILE_INPUT_GRID", 1)
    endif
  endif