Changeset 11356
- Timestamp:
- 2019-07-26T14:33:31+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyini.F90
r11352 r11356 1189 1189 &(jpjnob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1190 1190 IF (jpindt(ib).ge.jpinft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1191 IF (jpindt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1192 IF (jpinft(ib).g e.jpiglo) CALL ctl_stop( 'End index out of domain' )1191 IF (jpindt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1192 IF (jpinft(ib).gt.jpiglo) CALL ctl_stop( 'End index out of domain' ) 1193 1193 END DO 1194 1194 ! … … 1198 1198 &(jpjsob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1199 1199 IF (jpisdt(ib).ge.jpisft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1200 IF (jpisdt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1201 IF (jpisft(ib).g e.jpiglo) CALL ctl_stop( 'End index out of domain' )1200 IF (jpisdt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1201 IF (jpisft(ib).gt.jpiglo) CALL ctl_stop( 'End index out of domain' ) 1202 1202 END DO 1203 1203 ! … … 1207 1207 &(jpieob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1208 1208 IF (jpjedt(ib).ge.jpjeft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1209 IF (jpjedt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1210 IF (jpjeft(ib).g e.jpjglo) CALL ctl_stop( 'End index out of domain' )1209 IF (jpjedt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1210 IF (jpjeft(ib).gt.jpjglo) CALL ctl_stop( 'End index out of domain' ) 1211 1211 END DO 1212 1212 ! … … 1216 1216 &(jpiwob(ib).le.1)) CALL ctl_stop( 'nbdyind out of domain' ) 1217 1217 IF (jpjwdt(ib).ge.jpjwft(ib)) CALL ctl_stop( 'Bdy start index is greater than end index' ) 1218 IF (jpjwdt(ib).l e.1 ) CALL ctl_stop( 'Start index out of domain' )1219 IF (jpjwft(ib).g e.jpjglo) CALL ctl_stop( 'End index out of domain' )1218 IF (jpjwdt(ib).lt.1 ) CALL ctl_stop( 'Start index out of domain' ) 1219 IF (jpjwft(ib).gt.jpjglo) CALL ctl_stop( 'End index out of domain' ) 1220 1220 ENDDO 1221 1221 !
Note: See TracChangeset
for help on using the changeset viewer.