Changeset 13350 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/LBC/lbclnk.F90
- Timestamp:
- 2020-07-28T14:28:29+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/LBC/lbclnk.F90
r11536 r13350 382 382 ! 383 383 SELECT CASE ( jpni ) 384 CASE ( 1 ) ; CALL lbc_nfd ( pt2d(1:jpi,1 :jpj+kextj), cd_type, psgn, kextj )384 CASE ( 1 ) ; CALL lbc_nfd ( pt2d(1:jpi,1-kextj:jpj+kextj), cd_type, psgn, kextj ) 385 385 CASE DEFAULT ; CALL mpp_lbc_north_icb( pt2d(1:jpi,1:jpj+kextj), cd_type, psgn, kextj ) 386 386 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.