Minor fix.

Fixes ufs-community#651.
GeorgeGayno-NOAA · May 24, 2022 · 567519a · 567519a
1 parent 2945061
commit 567519a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
@@ -2598,6 +2598,7 @@ subroutine read_input_atm_grib2_file(localpet)
    lev_input = 0
    iret = 0
    j = 0
+   jpdtn = -1
    jpdt = -9999
 
    do
@@ -2674,6 +2675,7 @@ subroutine read_input_atm_grib2_file(localpet)
 
  if (localpet == 0) then
 
+   jpdtn = pdt_num
    jpdt = -9999
    jpdt(1) = 1  ! Sect4/oct 10 - param category - moisture
    jpdt(2) = 0  ! Sect4/oct 11 - param number - specific humidity
@@ -2740,6 +2742,7 @@ subroutine read_input_atm_grib2_file(localpet)
 
  if (localpet == 0) then
 
+   jpdtn = pdt_num
    jpdt = -9999
    if (isnative) then
      jpdt(10) = 105 ! Sect4/oct 23 - type of level - hybrid