Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fix knint #532

Merged
merged 30 commits into from
Nov 17, 2021
Merged

Fix knint #532

Changes from 29 commits
Commits
Show all changes
30 commits
Select commit Hold shift + click to select a range
98c5702
Added boundary checks to the SMC grid input files for ww3_grid,
UKMO-lsampson Jun 8, 2020
71b9ba9
Fb 360 calendar (#8)
ukmo-juan-castillo Jul 16, 2020
6c42d17
RTD support for ww3_boun[dc] (#10)
ukmo-ccbunney Jul 28, 2020
5c361aa
Fb coupling time (#9)
ukmo-juan-castillo Jul 30, 2020
cc34122
Merge remote-tracking branch 'upstream/staging' into develop
Aug 7, 2020
33a7af3
bug fix for ukmet development
Aug 7, 2020
68c3c96
Merge remote-tracking branch 'upstream/develop' into develop
Oct 19, 2020
663d983
Merge remote-tracking branch 'upstream/develop' into develop
Oct 26, 2020
d4887f5
Merge remote-tracking branch 'upstream/develop' into develop
Jan 11, 2021
dc0cea9
Merge remote-tracking branch 'upstream/develop' into develop
Mar 4, 2021
23e5537
Merge remote-tracking branch 'upstream/develop' into develop
Mar 19, 2021
8bf217e
Merge remote-tracking branch 'upstream/develop' into develop
Mar 23, 2021
76cc41f
Merge remote-tracking branch 'upstream/develop' into develop
Mar 26, 2021
ff106db
Merge remote-tracking branch 'upstream/develop' into develop
Apr 27, 2021
1da66cd
Merge remote-tracking branch 'upstream/develop' into develop
May 27, 2021
cecf4b7
aaRevert "Make ww3_grid into a callable subroutine (#362)"
May 27, 2021
17a526a
Merge remote-tracking branch 'upstream/develop' into develop
Jun 15, 2021
1a5413f
solve conflict
Jun 15, 2021
76354f4
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Jun 16, 2021
7ebe4d3
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Aug 5, 2021
c919878
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Sep 2, 2021
f1ef2a2
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Sep 20, 2021
4094277
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Sep 23, 2021
067b7cd
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Sep 27, 2021
b50da54
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Oct 13, 2021
7b79033
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Oct 19, 2021
87c7f30
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Oct 21, 2021
41fe562
Merge branch 'NOAA-EMC:develop' into develop
aliabdolali Nov 5, 2021
a7e3ed6
replace KNINT with NINT to be compatible with all compilers
Nov 14, 2021
730d7a3
Merge branch 'NOAA-EMC:develop' into fix_knint
aliabdolali Nov 15, 2021
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
28 changes: 14 additions & 14 deletions model/src/ww3_grib.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -559,16 +559,16 @@ PROGRAM W3GRIB
X0 = MOD(XGRD(1,1) + 360.,360.)
XN = MOD(XGRD(NY,NX) + 360., 360.)
X0N = MOD(XGRD(NY,1) + 360., 360.)
KGDS(11)=KNINT(1000000.*X0)
KGDS(11)=NINT(1000000.*X0)
Y0 = YGRD(1,1)
YN = YGRD(NY,NX)
Y0N = YGRD(NY,1)
KGDS(10)=KNINT(1000000.*Y0)
KGDS(10)=NINT(1000000.*Y0)
KGDS(12)=0
KGDS(13)=DBLE(1000000.*LATAN1)
KGDS(14)=DBLE(1000000.*LONV)
KGDS(15)=KNINT(1000000*DSX)
KGDS(16)=KNINT(1000000*DSY)
KGDS(15)=NINT(1000000*DSX)
KGDS(16)=NINT(1000000*DSY)
KGDS(17)=0
KGDS(18)=SCNMOD
KGDS(19)=DBLE(1000000.*LATIN1)
Expand Down Expand Up @@ -600,16 +600,16 @@ PROGRAM W3GRIB
X0 = MOD(XGRD(1,1) + 360.,360.)
XN = MOD(XGRD(NY,NX) + 360., 360.)
X0N = MOD(XGRD(NY,1) + 360., 360.)
KGDS(11)=KNINT(1000000.*X0)
KGDS(11)=NINT(1000000.*X0)
Y0 = YGRD(1,1)
YN = YGRD(NY,NX)
Y0N = YGRD(NY,1)
KGDS(10)=KNINT(1000000.*Y0)
KGDS(10)=NINT(1000000.*Y0)
KGDS(12)=0
KGDS(13)=DBLE(1000000.*LATAN1)
KGDS(14)=DBLE(1000000.*LONV)
KGDS(15)=KNINT(1000000*DSX)
KGDS(16)=KNINT(1000000*DSY)
KGDS(15)=NINT(1000000*DSX)
KGDS(16)=NINT(1000000*DSY)
KGDS(17)=0
KGDS(18)=SCNMOD
#endif
Expand All @@ -631,15 +631,15 @@ PROGRAM W3GRIB
! (19) Scanning mode
!
#ifdef W3_NCEP2
KGDS(12) = KNINT(1000000.*(Y0+(REAL(NY-1)*SY)))
KGDS(12) = NINT(1000000.*(Y0+(REAL(NY-1)*SY)))
X0 = MOD(X0 + 360.,360.)
KGDS(13) = KNINT(1000000.*X0)
KGDS(13) = NINT(1000000.*X0)
KGDS(14) = 48
KGDS(15) = KNINT(1000000.*Y0)
KGDS(15) = NINT(1000000.*Y0)
XN = MOD(X0+REAL(NX-1)*SX + 360., 360.)
KGDS(16) = KNINT(1000000.*XN)
KGDS(17) = KNINT(1000000.*SX)
KGDS(18) = KNINT(1000000.*SY)
KGDS(16) = NINT(1000000.*XN)
KGDS(17) = NINT(1000000.*SX)
KGDS(18) = NINT(1000000.*SY)
ENDIF
#endif
!
Expand Down