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 9092 for branches – NEMO

Changeset 9092 for branches


Ignore:
Timestamp:
2017-12-15T18:20:09+01:00 (6 years ago)
Author:
flavoni
Message:

change lbc_lnk in lbc_lnk_multi

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/wet_dry.F90

    r9090 r9092  
    259259         END DO  ! jj loop 
    260260 
    261          CALL lbc_lnk( zwdlmtu, 'U', 1. ) 
    262          CALL lbc_lnk( zwdlmtv, 'V', 1. ) 
     261         CALL lbc_lnk_multi( zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 
    263262 
    264263         IF(lk_mpp) CALL mpp_max(jflag)   !max over the global domain 
     
    273272      END DO 
    274273 
    275       CALL lbc_lnk( un, 'U', -1. ) 
    276       CALL lbc_lnk( vn, 'V', -1. ) 
     274      CALL lbc_lnk_multi( un, 'U', -1., vn, 'V', -1. ) 
    277275        ! 
    278276      un_b(:,:) = un_b(:,:) * zwdlmtu(:, :) 
    279277      vn_b(:,:) = vn_b(:,:) * zwdlmtv(:, :) 
    280       CALL lbc_lnk( un_b, 'U', -1. ) 
    281       CALL lbc_lnk( vn_b, 'V', -1. ) 
     278      CALL lbc_lnk_multi( un_b, 'U', -1., vn_b, 'V', -1. ) 
    282279        
    283280      IF(jflag == 1 .AND. lwp) WRITE(numout,*) 'Need more iterations in wad_lmt!!!' 
     
    403400         END DO  ! jj loop 
    404401 
    405          CALL lbc_lnk( zwdlmtu, 'U', 1. ) 
    406          CALL lbc_lnk( zwdlmtu, 'U', 1. ) 
    407          CALL lbc_lnk( zwdlmtv, 'V', 1. ) 
     402         CALL lbc_lnk_multi( zwdlmtu, 'U', 1., zwdlmtv, 'V', 1. ) 
    408403 
    409404         IF(lk_mpp) CALL mpp_max(jflag)   !max over the global domain 
     
    416411      zflxv(:,:) = zflxv(:,:) * zwdlmtv(:, :)  
    417412 
    418       CALL lbc_lnk( zflxu, 'U', -1. ) 
    419       CALL lbc_lnk( zflxv, 'V', -1. ) 
     413      CALL lbc_lnk_multi( zflxu, 'U', -1., zflxv, 'V', -1. ) 
    420414        
    421415      IF(jflag == 1 .AND. lwp) WRITE(numout,*) 'Need more iterations in wad_lmt_bt!!!' 
Note: See TracChangeset for help on using the changeset viewer.