Changeset 15127 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/LBC/mpp_lnk_icb_generic.h90
- Timestamp:
- 2021-07-16T20:00:12+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/LBC/mpp_lnk_icb_generic.h90
r14448 r15127 56 56 ! !* Cyclic east-west 57 57 IF( l_Iperio ) THEN 58 pt2d(1-kexti: 1 ,:) = pt2d(jpi m1-kexti: jpim1 ,:) ! east58 pt2d(1-kexti: 1 ,:) = pt2d(jpi-1-kexti: jpi-1 ,:) ! east 59 59 pt2d( jpi :jpi+kexti,:) = pt2d( 2 :2+kexti,:) ! west 60 60 ! … … 70 70 ! ! North-South boundaries 71 71 IF( l_Jperio ) THEN !* cyclic (only with no mpp j-split) 72 pt2d(:,1-kextj: 1 ) = pt2d(:,jpj m1-kextj: jpjm1) ! north72 pt2d(:,1-kextj: 1 ) = pt2d(:,jpj-1-kextj: jpj-1) ! north 73 73 pt2d(:, jpj :jpj+kextj) = pt2d(:, 2 :2+kextj) ! south 74 74 ELSE !* closed
Note: See TracChangeset
for help on using the changeset viewer.