- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/LBC/mpp_lnk_icb_generic.h90
r13226 r13899 105 105 SELECT CASE ( nbondi ) ! Read Dirichlet lateral conditions 106 106 CASE ( -1, 0, 1 ) ! all exept 2 (i.e. close case) 107 iihom = jpi -nreci-kexti107 iihom = jpi - (2 * nn_hls) -kexti 108 108 DO jl = 1, ipreci 109 109 r2dew(:,jl,1) = pt2d(nn_hls+jl,:) … … 165 165 ! 166 166 IF( nbondj /= 2 ) THEN ! Read Dirichlet lateral conditions 167 ijhom = jpj -nrecj-kextj167 ijhom = jpj - (2 * nn_hls) - kextj 168 168 DO jl = 1, iprecj 169 169 r2dsn(:,jl,1) = pt2d(:,ijhom +jl)
Note: See TracChangeset
for help on using the changeset viewer.