Add diagnostic print to chgres_cube test.

Fixes ufs-community#879.
GeorgeGayno-NOAA · Oct 23, 2024 · f47f84d · f47f84d
1 parent a4136eb
commit f47f84d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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)