Changeset 14275 for NEMO/trunk/src/OCE/OBS/obs_read_surf.F90
- Timestamp:
- 2021-01-07T13:13:16+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/OBS/obs_read_surf.F90
r14056 r14275 300 300 IF ( ( inpfiles(jj)%ptim(ji) > djulini(jj) ) .AND. & 301 301 & ( inpfiles(jj)%ptim(ji) <= djulend(jj) ) ) THEN 302 IF ( n proc == 0) THEN303 IF ( inpfiles(jj)%iproc(ji,1) > n proc) CYCLE302 IF ( narea == 1 ) THEN 303 IF ( inpfiles(jj)%iproc(ji,1) > narea-1 ) CYCLE 304 304 ELSE 305 IF ( inpfiles(jj)%iproc(ji,1) /= n proc) CYCLE305 IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 306 306 ENDIF 307 307 llvalprof = .FALSE. … … 371 371 & ( inpfiles(jj)%ptim(ji) <= djulend(jj) ) ) THEN 372 372 373 IF ( n proc == 0) THEN374 IF ( inpfiles(jj)%iproc(ji,1) > n proc) CYCLE373 IF ( narea == 1 ) THEN 374 IF ( inpfiles(jj)%iproc(ji,1) > narea-1 ) CYCLE 375 375 ELSE 376 IF ( inpfiles(jj)%iproc(ji,1) /= n proc) CYCLE376 IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 377 377 ENDIF 378 378
Note: See TracChangeset
for help on using the changeset viewer.