Changeset 9667 for NEMO/trunk/src/OCE/LBC/mpp_bdy_generic.h90
- Timestamp:
- 2018-05-28T17:47:05+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LBC/mpp_bdy_generic.h90
r9019 r9667 76 76 IF( nbondi == 2) THEN ! neither subdomain to the east nor to the west 77 77 ! !* Cyclic 78 IF( nperio == 1 .OR. nperio == 4 .OR. nperio == 6) THEN78 IF( l_Iperio ) THEN 79 79 ARRAY_IN( 1 ,:,:,:,jf) = ARRAY_IN(jpim1,:,:,:,jf) 80 80 ARRAY_IN(jpi,:,:,:,jf) = ARRAY_IN( 2 ,:,:,:,jf) … … 91 91 ! ! North-South boundaries 92 92 ! 93 IF (nbondj == 2 .OR. nbondj == -1) THEN !* closed 94 IF( .NOT. NAT_IN(jf) == 'F' ) ARRAY_IN(:,1:nn_hls,:,:,jf) = zland ! south except F-point 95 ELSEIF (nbondj == 2 .OR. nbondj == 1) THEN 96 ARRAY_IN(:,nlcj-nn_hls+1:jpj,:,:,jf) = zland ! north 93 IF( nbondj == 2) THEN ! neither subdomain to the north nor to the south 94 ! !* Cyclic 95 IF( l_Jperio ) THEN 96 ARRAY_IN(:, 1 ,:,:,jf) = ARRAY_IN(:,jpjm1,:,:,jf) 97 ARRAY_IN(:,jpj,:,:,jf) = ARRAY_IN(:, 2 ,:,:,jf) 98 ELSE !* Closed 99 IF( .NOT. NAT_IN(jf) == 'F' ) ARRAY_IN(:, 1 :nn_hls,:,:,jf) = zland ! east except F-point 100 ARRAY_IN(:,nlcj-nn_hls+1:jpj ,:,:,jf) = zland ! west 101 ENDIF 102 ELSEIF(nbondi == -1) THEN ! subdomain to the east only 103 IF( .NOT. NAT_IN(jf) == 'F' ) ARRAY_IN(:,1:nn_hls,:,:,jf) = zland ! south except F-point 104 ! 105 ELSEIF(nbondi == 1) THEN ! subdomain to the west only 106 ARRAY_IN(:,nlcj-nn_hls+1:jpj,:,:,jf) = zland ! north 97 107 ENDIF 108 ! 98 109 END DO 99 110
Note: See TracChangeset
for help on using the changeset viewer.