Changeset 6824 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
- Timestamp:
- 2016-07-28T15:36:29+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r6204 r6824 480 480 481 481 nblendta(1:jpbgrd,ib_bdy) = (nbdyend - nbdybeg + 1) * nn_rimwidth(ib_bdy) 482 jpbdtas = MAX(jpbdtas, (nbdyend - nbdybeg + 1) )482 jpbdtas = MAX(jpbdtas, (nbdyend - nbdybeg + 1) * nn_rimwidth(ib_bdy)) 483 483 IF (lwp.and.(nn_rimwidth(ib_bdy)>nrimmax)) & 484 484 & CALL ctl_stop( 'rimwidth must be lower than nrimmax' )
Note: See TracChangeset
for help on using the changeset viewer.