From e34965f94b711e08616c88efad2f79eaf2e75920 Mon Sep 17 00:00:00 2001 From: George Gayno Date: Thu, 27 Feb 2020 17:49:00 +0000 Subject: [PATCH] feature/gdas_init This commit references #33 and #69. chgres_cube - Fix three argument mismatches in call to error handler routine. --- sorc/chgres_cube.fd/input_data.F90 | 4 ++-- sorc/chgres_cube.fd/program_setup.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90 index 5795fd6f2..76a20623a 100644 --- a/sorc/chgres_cube.fd/input_data.F90 +++ b/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, & diff --git a/sorc/chgres_cube.fd/program_setup.f90 b/sorc/chgres_cube.fd/program_setup.f90 index 25ac2f33f..f81d20d11 100644 --- a/sorc/chgres_cube.fd/program_setup.f90 +++ b/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