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 – NEMO

Changeset 9050


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

First use of lbc_lnk_multi in TOP routines

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC
Files:
3 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 
  • 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 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trdmxl_trc.F90

    r9019 r9050  
    433433         !-- Lateral boundary conditions 
    434434               IF ( cn_cfg .NE. 'gyre' ) THEN 
    435                   CALL lbc_lnk( ztmltot(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlres(:,:,jn) , 'T', 1. ) 
    436                   CALL lbc_lnk( ztmlatf(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlrad(:,:,jn) , 'T', 1. ) 
     435                  CALL lbc_lnk_multi( ztmltot(:,:,jn) , 'T', 1. , ztmlres(:,:,jn) , 'T', 1., & 
     436                     &                ztmlatf(:,:,jn) , 'T', 1. , ztmlrad(:,:,jn) , 'T', 1. ) 
    437437               ENDIF 
    438438 
     
    484484         !-- Lateral boundary conditions  
    485485               IF ( cn_cfg .NE. 'gyre' ) THEN            ! other than GYRE configuration     
    486                   CALL lbc_lnk( ztmltot2(:,:,jn), 'T', 1. ) 
    487                   CALL lbc_lnk( ztmlres2(:,:,jn), 'T', 1. ) 
     486                  CALL lbc_lnk_multi( ztmltot2(:,:,jn), 'T', 1., ztmlres2(:,:,jn), 'T', 1. ) 
    488487                  DO jl = 1, jpltrd_trc 
    489488                     CALL lbc_lnk( ztmltrd2(:,:,jl,jn), 'T', 1. )       ! will be output in the NetCDF trends file 
Note: See TracChangeset for help on using the changeset viewer.