Increase error threshold for the chgres/ftst_read_atm_grib2.F90

check of pressure. Fixes ufs-community#879.
GeorgeGayno-NOAA · Oct 23, 2024 · 6c57bf9 · 6c57bf9
1 parent f47f84d
commit 6c57bf9
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/tests/chgres_cube/ftst_read_atm_grib2.F90 b/tests/chgres_cube/ftst_read_atm_grib2.F90
@@ -241,8 +241,7 @@ program read_atm_grib2
  if (abs(data3d_one_tile(i_check(2),j_check(2),k_check(2)) - expected_values_zwind(2)) > EPSILON) stop 29
 
  call ESMF_FieldGather(ps_input_grid, data_one_tile, rootPet=0, rc=rc)
- print*,'got here ', data_one_tile(i_check(1),j_check(1)), expected_values_ps(1)
- if (abs(data_one_tile(i_check(1),j_check(1)) - expected_values_ps(1)) > EPSILON) stop 32
+ if (abs(data_one_tile(i_check(1),j_check(1)) - expected_values_ps(1)) > (20.0*EPSILON)) stop 32
 
  call ESMF_FieldGather(terrain_input_grid, data_one_tile, rootPet=0, rc=rc)
  if (abs(data_one_tile(i_check(1),j_check(1)) - expected_values_terrain(1)) > EPSILON) stop 34