Changeset 14644 for NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_read_prof.F90
- Timestamp:
- 2021-03-26T15:33:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette _wave@13990sette11 ^/utils/CI/sette@14244 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r14116_HPC-04_mcastril_Mixed_Precision_implementation_final/src/OCE/OBS/obs_read_prof.F90
r14056 r14644 404 404 IF ( ( inpfiles(jj)%ptim(ji) > djulini(jj) ) .AND. & 405 405 & ( inpfiles(jj)%ptim(ji) <= djulend(jj) ) ) THEN 406 IF ( n proc == 0) THEN407 IF ( inpfiles(jj)%iproc(ji,1) > n proc) CYCLE406 IF ( narea == 1 ) THEN 407 IF ( inpfiles(jj)%iproc(ji,1) > narea-1 ) CYCLE 408 408 ELSE 409 IF ( inpfiles(jj)%iproc(ji,1) /= n proc) CYCLE409 IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 410 410 ENDIF 411 411 llvalprof = .FALSE. … … 538 538 & ( inpfiles(jj)%ptim(ji) <= djulend(jj) ) ) THEN 539 539 540 IF ( n proc == 0) THEN541 IF ( inpfiles(jj)%iproc(ji,1) > n proc) CYCLE540 IF ( narea == 1 ) THEN 541 IF ( inpfiles(jj)%iproc(ji,1) > narea-1 ) CYCLE 542 542 ELSE 543 IF ( inpfiles(jj)%iproc(ji,1) /= n proc) CYCLE543 IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 544 544 ENDIF 545 545
Note: See TracChangeset
for help on using the changeset viewer.