Skip to content

Commit

Permalink
changed section 5 values
Browse files Browse the repository at this point in the history
  • Loading branch information
Amin Ilia committed Feb 10, 2025
1 parent 76ffd30 commit ef6347d
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions src/ocnicepost.fd/utils_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -779,14 +779,14 @@ subroutine write_grib2_2d(fname, gcf, dims, nflds, field, rgmask2d, vfill)
where ( field(:,n) .eq. vfill ) field(:,n)= -9999.0

! Create Section 5 parametrs
idrtnum = 0 ! Template 5.2 (Grid Point Data - complex Packing)
idrtnum = 2 ! Template 5.2 (Grid Point Data - complex Packing)

idrtmpl(:)=0
! Populate idrtmpl
idrtmpl(1) = min_val ! Reference value (scaled value of the minimum data point)
idrtmpl(2) = 100 ! Binary scale factor (scale by 2^E)
idrtmpl(3) = 0 ! Decimal scale factor (scale by 10^D)
idrtmpl(4) = 32 !
idrtmpl(1) = 0 ! Reference value (scaled value of the minimum data point)
idrtmpl(2) = 0 ! Binary scale factor (scale by 2^E)
idrtmpl(3) = -3 ! Decimal scale factor (scale by 10^D)
idrtmpl(4) = 0 !
idrtmpl(5) = 0 !
idrtmpl(6) = 0 !
! Reserved fields
Expand Down

0 comments on commit ef6347d

Please sign in to comment.