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/PISCES/P2Z – 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/PISCES/P2Z/p2zbio.F90

    r7646 r9050  
    348348            CALL lbc_lnk( zw2d(:,:,jl),'T', 1. ) 
    349349         END DO 
    350          DO jl = 1, 3 
    351             CALL lbc_lnk( zw3d(:,:,:,jl),'T', 1. ) 
    352          END DO 
     350         CALL lbc_lnk_multi( zw3d(:,:,:,1),'T', 1., zw3d(:,:,:,2),'T', 1., zw3d(:,:,:,3),'T', 1. ) 
    353351      ENDIF 
    354352      IF( lk_iomput ) THEN 
Note: See TracChangeset for help on using the changeset viewer.