From f47f84d1de3fb2395f8ecaba69dfd3c73086f8a8 Mon Sep 17 00:00:00 2001 From: George Gayno Date: Wed, 23 Oct 2024 17:23:06 +0000 Subject: [PATCH] Add diagnostic print to chgres_cube test. Fixes #879. --- tests/chgres_cube/ftst_read_atm_grib2.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/chgres_cube/ftst_read_atm_grib2.F90 b/tests/chgres_cube/ftst_read_atm_grib2.F90 index 7d19ffeb9..8c7c7b6b0 100644 --- a/tests/chgres_cube/ftst_read_atm_grib2.F90 +++ b/tests/chgres_cube/ftst_read_atm_grib2.F90 @@ -241,6 +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 call ESMF_FieldGather(terrain_input_grid, data_one_tile, rootPet=0, rc=rc)