1 | Index: ROMS/Utility/get_grid.F
|
---|
2 | ===================================================================
|
---|
3 | --- ROMS/Utility/get_grid.F (revision 611)
|
---|
4 | +++ ROMS/Utility/get_grid.F (working copy)
|
---|
5 | @@ -106,7 +106,7 @@
|
---|
6 | integer :: grdsphid, grdxlid
|
---|
7 | integer :: grdxpid, grdxrid, grdxuid, grdxvid
|
---|
8 | integer :: grdypid, grdyrid, grdyuid, grdyvid
|
---|
9 | - integer :: gtype, i, nrec, nvd, status
|
---|
10 | + integer :: gtype, i, j, nrec, nvd, status
|
---|
11 |
|
---|
12 | integer :: Vsize(4)
|
---|
13 |
|
---|
14 | @@ -589,7 +589,13 @@
|
---|
15 | & GRID(ng) % rmask(LBi,LBj), &
|
---|
16 | # endif
|
---|
17 | & GRID(ng) % h(LBi,LBj))
|
---|
18 | - IF (status.ne.nf90_noerr) THEN
|
---|
19 | + IF (status.eq.nf90_noerr) THEN
|
---|
20 | + DO j=LBj,UBj
|
---|
21 | + DO i=LBi,UBi
|
---|
22 | + IF (GRID(ng) % h(i,j) .eq. 0.0) GRID(ng) % h(i,j) = -1.
|
---|
23 | + END DO
|
---|
24 | + END DO
|
---|
25 | + ELSE
|
---|
26 | IF (Master) THEN
|
---|
27 | WRITE (stdout,30) 'h', TRIM(ncname)
|
---|
28 | END IF
|
---|