Skip to content
Draft
Show file tree
Hide file tree
Changes from 8 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions modulefiles/build.hera.intel.lua
Original file line number Diff line number Diff line change
Expand Up @@ -41,8 +41,8 @@ load(pathJoin("w3emc", w3emc_ver))
sigio_ver=os.getenv("sigio_ver") or "2.3.2"
load(pathJoin("sigio", sigio_ver))

zlib_ver=os.getenv("zlib_ver") or "1.2.13"
load(pathJoin("zlib", zlib_ver))
--zlib_ver=os.getenv("zlib_ver") or "1.2.13"
--load(pathJoin("zlib", zlib_ver))
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Was zlib causing a problem or is it not used?

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

zlib was not used, apparently, and I would put it back into the module.

Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I removed the module load of zlib for the intelllvm build. Everything built fine. Apparently, zlib is automatically loaded from some other module. I only tried this test on Hera.


png_ver=os.getenv("png_ver") or "1.6.37"
load(pathJoin("libpng", png_ver))
Expand Down
4 changes: 2 additions & 2 deletions sorc/chgres_cube.fd/atm_input_data.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2077,8 +2077,8 @@ subroutine read_input_atm_grib2_file(localpet)
jpdtn = -1 ! Search for any product definition template number.
unpack =.false.

call getgb2(lugb, lugi, j, jdisc, jids, jpdtn, jpdt, jgdtn, jgdt, &
unpack, k, gfld, iret)
call getgb2i2(lugb, lugi , j, jdisc, jids, jpdtn, jpdt, jgdtn, jgdt, &
unpack, 2, k, gfld, iret)

!----------------------------------------------------------------------
! Read first record and check if this is NCEP GEFS data.
Expand Down
6 changes: 3 additions & 3 deletions sorc/chgres_cube.fd/sfc_input_data.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1818,7 +1818,7 @@ subroutine read_input_sfc_grib2_file(localpet)

if (localpet == 0) then

lugb=12
lugb=16
call baopenr(lugb,the_file,rc)
if (rc /= 0) call error_handler("ERROR OPENING GRIB2 FILE.", rc)

Expand All @@ -1832,8 +1832,8 @@ subroutine read_input_sfc_grib2_file(localpet)
jpdt = -9999 ! array of values in product definition template, set to wildcard
unpack = .false. ! unpack data

call getgb2(lugb, lugi, j, jdisc, jids, jpdtn, jpdt, jgdtn, jgdt, &
unpack, k, gfld, rc)
call getgb2i2(lugb, lugi, j, jdisc, jids, jpdtn, jpdt, jgdtn, jgdt, &
unpack, 2, k, gfld, rc)

if (rc == 0) then
if (gfld%idsect(1) == 7 .and. gfld%idsect(2) == 2) then
Expand Down
Loading