Ignore:
Timestamp:
2019-07-15T17:05:46+02:00 (15 months ago)
Author:
dancopsey
Message:

Add input strings to lbc_lnk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/SBC/sbccpl.F90

    r11105 r11270  
    11711171             ikchoix = 1 
    11721172             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. ) 
    11751175             frcv(jpr_otx1)%z3(:,:,1)=ztx2(:,:) 
    11761176             frcv(jpr_oty1)%z3(:,:,1)=zty2(:,:) 
     
    24232423                
    24242424               ! 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) 
    24272427                
    24282428               ikchoix = -1 
Note: See TracChangeset for help on using the changeset viewer.