Skip to content

Commit 2b93d40

Browse files
Merge branch 'NOAA-EMC:develop' into mpi2f08develop
2 parents e925e27 + 814c1a4 commit 2b93d40

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

model/bin/ww3_from_ftp.sh

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@ usage()
2020
curr_dir=`pwd`
2121

2222
# Set WW3 code version
23-
ww3ver=v7.14.1
23+
ww3ver=v7.14.2
2424

2525
interactive='n'
2626
keep='n'

model/src/w3oacpmd.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -306,9 +306,9 @@ SUBROUTINE CPL_OASIS_GRID(LD_MASTER,ID_LCOMM)
306306
ALLOCATE ( AREA(NNODES,1), CORLON(NNODES,1,4), CORLAT(NNODES,1,4) )
307307
ALLOCATE ( MASK(NNODES,1) )
308308
DO I=1, NNODES
309-
! lat/lon
310-
LON(I,1) = X0 + (IJKCel(1,I) + IJKCel(3,I)*0.5)*DLON
311-
LAT(I,1) = Y0 + (IJKCel(2,I) + IJKCel(4,I)*0.5)*DLAT
309+
! lat/lon (see e.g. ww3_ounf)
310+
LON(I,1) = X0 + (IJKCel(1,I) + IJKCel(3,I)*0.5 - 1.0)*DLON
311+
LAT(I,1) = Y0 + (IJKCel(2,I) + IJKCel(4,I)*0.5 - 1.0)*DLAT
312312
! corners
313313
CORLON(I,1,1) = X0 + IJKCel(1,I)*DLON
314314
CORLON(I,1,2) = X0 + (IJKCel(1,I) + IJKCel(3,I))*DLON

0 commit comments

Comments
 (0)