Ticket #151: patch.h

File patch.h, 924 bytes (added by kate, 17 years ago)

patch

Line 
1Index: 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