New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11270 for NEMO/branches/UKMO – NEMO

Changeset 11270 for NEMO/branches/UKMO


Ignore:
Timestamp:
2019-07-15T17:05:46+02:00 (5 years 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.