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 9097 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90 – NEMO

Ignore:
Timestamp:
2017-12-15T18:36:32+01:00 (6 years ago)
Author:
cetlod
Message:

Use of lbclnk_multi in subdir USR & TRD

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90

    r9019 r9097  
    153153!!gm to be put juste before the output ! 
    154154!      ! Lateral boundary conditions 
    155 !      CALL lbc_lnk( tmltrd(:,:,jl), 'T', 1. ) 
    156 !      CALL lbc_lnk( smltrd(:,:,jl), 'T', 1. ) 
     155!      CALL lbc_lnk_multi( tmltrd(:,:,jl), 'T', 1. , smltrd(:,:,jl), 'T', 1. ) 
    157156!!gm end 
    158157 
    … …  
    480479         !-- Lateral boundary conditions 
    481480         !         ... temperature ...                    ... salinity ... 
    482          CALL lbc_lnk( ztmltot , 'T', 1. )  ;   CALL lbc_lnk( zsmltot , 'T', 1. ) 
    483          CALL lbc_lnk( ztmlres , 'T', 1. )  ;   CALL lbc_lnk( zsmlres , 'T', 1. ) 
    484          CALL lbc_lnk( ztmlatf , 'T', 1. )  ;   CALL lbc_lnk( zsmlatf , 'T', 1. ) 
     481         CALL lbc_lnk_multi( ztmltot , 'T', 1., zsmltot , 'T', 1., & 
     482                  &          ztmlres , 'T', 1., zsmlres , 'T', 1., & 
     483                  &          ztmlatf , 'T', 1., zsmlatf , 'T', 1. ) 
    485484 
    486485 
    … …  
    531530         !-- Lateral boundary conditions 
    532531         !         ... temperature ...                    ... salinity ... 
    533          CALL lbc_lnk( ztmltot2, 'T', 1. )  ;   CALL lbc_lnk( zsmltot2, 'T', 1. ) 
    534          CALL lbc_lnk( ztmlres2, 'T', 1. )  ;   CALL lbc_lnk( zsmlres2, 'T', 1. ) 
    535          DO jl = 1, jpltrd 
    536             CALL lbc_lnk( ztmltrd2(:,:,jl), 'T', 1. ) ! \  these will be output 
    537             CALL lbc_lnk( zsmltrd2(:,:,jl), 'T', 1. ) ! /  in the NetCDF trends file 
    538          END DO 
     532         CALL lbc_lnk_multi( ztmltot2, 'T', 1., zsmltot2, 'T', 1., & 
     533                  &          ztmlres2, 'T', 1., zsmlres2, 'T', 1. ) 
     534         CALL lbc_lnk_multi( ztmltrd2(:,:,:), 'T', zsmltrd2(:,:,:), 'T', 1. ) ! /  in the NetCDF trends file 
    539535          
    540536         ! III.3 Time evolution array swap 
Note: See TracChangeset for help on using the changeset viewer.