Add print of number of grib2 records read.

Fixes ufs-community#660.
GeorgeGayno-NOAA · Jun 29, 2022 · 7185ed5 · 7185ed5
1 parent ed77aca
commit 7185ed5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
@@ -2601,6 +2601,7 @@ subroutine read_input_atm_grib2_file(localpet)
      endif
 
      j = k
+
    enddo
 
  endif
@@ -2610,6 +2611,9 @@ subroutine read_input_atm_grib2_file(localpet)
  call MPI_BCAST(lev_input,1,MPI_INTEGER,0,MPI_COMM_WORLD,iret)
  call MPI_BCAST(rlevs_hold, max_levs, MPI_INTEGER,0,MPI_COMM_WORLD,iret)
 
+ if(localpet == 0) print*,'number of grib2 records read ',k
+ stop
+
  allocate(slevs(lev_input))
  allocate(rlevs(lev_input))
  allocate(dummy3d_col_in(lev_input))