Changeset 12264 for utils/tools/NESTING/src/agrif_connect_topo.f90
- Timestamp:
- 2019-12-17T18:32:39+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/NESTING/src/agrif_connect_topo.f90
r12253 r12264 251 251 ! 252 252 ! 253 DO j = 1,jpj254 DO i = 1,jpi253 DO jj = 1,jpj 254 DO ji = 1,jpi 255 255 ! 256 IF (Grid%bathy_meter( i,j) .EQ. 0.0 ) THEN257 Grid%bathy_level( i,j)=0256 IF (Grid%bathy_meter(ji,jj) .EQ. 0.0 ) THEN 257 Grid%bathy_level(ji,jj)=0 258 258 ELSE 259 259 ! 260 k1= 4260 k1=2 ! clem: minimum levels = 4 ??? 261 261 DO WHILE (k1 .LT. (N-1)) 262 IF ((Grid%bathy_meter( i,j).GE.gdepw(k1)) &263 .AND.(Grid%bathy_meter( i,j).LE.gdepw(k1+1))) EXIT262 IF ((Grid%bathy_meter(ji,jj).GE.gdepw(k1)) & 263 .AND.(Grid%bathy_meter(ji,jj).LE.gdepw(k1+1))) EXIT 264 264 k1=k1+1 265 265 END DO 266 Grid%bathy_level( i,j)=k1266 Grid%bathy_level(ji,jj)=k1 267 267 ! 268 268 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.