Changeset 11270
- Timestamp:
- 2019-07-15T17:05:46+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/SBC/sbccpl.F90
r11105 r11270 1171 1171 ikchoix = 1 1172 1172 CALL repcmo (frcv(jpr_otx1)%z3(:,:,1),zty,ztx,frcv(jpr_oty1)%z3(:,:,1),ztx2,zty2,ikchoix) 1173 CALL lbc_lnk ( ztx2,'U', -1. )1174 CALL lbc_lnk ( zty2,'V', -1. )1173 CALL lbc_lnk ('jpr_otx1', ztx2,'U', -1. ) 1174 CALL lbc_lnk ('jpr_oty1', zty2,'V', -1. ) 1175 1175 frcv(jpr_otx1)%z3(:,:,1)=ztx2(:,:) 1176 1176 frcv(jpr_oty1)%z3(:,:,1)=zty2(:,:) … … 2423 2423 2424 2424 ! Ensure any N fold and wrap columns are updated 2425 CALL lbc_lnk( ztmp1, 'V', -1.0)2426 CALL lbc_lnk( ztmp2, 'U', -1.0)2425 CALL lbc_lnk('zotx1', ztmp1, 'V', -1.0) 2426 CALL lbc_lnk('zoty1', ztmp2, 'U', -1.0) 2427 2427 2428 2428 ikchoix = -1
Note: See TracChangeset
for help on using the changeset viewer.