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 9050 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90 – NEMO

Ignore:
Timestamp:
2017-12-14T15:26:01+01:00 (6 years ago)
Author:
cetlod
Message:

First use of lbc_lnk_multi in TOP routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r9019 r9050  
    125125         ! 
    126126         DO jn = 1, jptra 
    127             CALL lbc_lnk( trb(:,:,:,jn), 'T', 1._wp )  
    128             CALL lbc_lnk( trn(:,:,:,jn), 'T', 1._wp ) 
    129             CALL lbc_lnk( tra(:,:,:,jn), 'T', 1._wp ) 
     127            CALL lbc_lnk_multi( trb(:,:,:,jn), 'T', 1._wp, trn(:,:,:,jn), 'T', 1._wp, tra(:,:,:,jn), 'T', 1._wp ) 
    130128         END DO 
    131129      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.