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 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_umx.F90 – NEMO

Ignore:
Timestamp:
2018-10-03T16:49:50+02:00 (6 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2a: add report calls of lbc_lnk, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_umx.F90

    r10069 r10170  
    182182         END DO 
    183183      END DO 
    184       CALL lbc_lnk( zt_ups, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
     184      CALL lbc_lnk( 'icedyn_adv_umx', zt_ups, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
    185185       
    186186      ! High order (_ho) fluxes  
    … …  
    229229         END DO 
    230230      END DO 
    231       CALL lbc_lnk( ptc, 'T',  1. ) 
     231      CALL lbc_lnk( 'icedyn_adv_umx', ptc, 'T',  1. ) 
    232232      ! 
    233233   END SUBROUTINE adv_umx 
    … …  
    271271            END DO 
    272272         END DO 
    273          CALL lbc_lnk( zzt, 'T', 1. ) 
     273         CALL lbc_lnk( 'icedyn_adv_umx', zzt, 'T', 1. ) 
    274274         ! 
    275275         !                                                           !--  ultimate interpolation of pt at v-point  --! 
    … …  
    289289            END DO 
    290290         END DO 
    291          CALL lbc_lnk( zzt, 'T', 1. ) 
     291         CALL lbc_lnk( 'icedyn_adv_umx', zzt, 'T', 1. ) 
    292292         ! 
    293293         !                                                           !--  ultimate interpolation of pt at u-point  --! 
    … …  
    331331         END DO 
    332332      END DO 
    333       CALL lbc_lnk( ztu2, 'T', 1. ) 
     333      CALL lbc_lnk( 'icedyn_adv_umx', ztu2, 'T', 1. ) 
    334334      ! 
    335335      !                                                     !--  BiLaplacian in i-direction  --! 
    … …  
    343343         END DO 
    344344      END DO 
    345       CALL lbc_lnk( ztu4, 'T', 1. ) 
     345      CALL lbc_lnk( 'icedyn_adv_umx', ztu4, 'T', 1. ) 
    346346      ! 
    347347      ! 
    … …  
    450450         END DO 
    451451      END DO 
    452       CALL lbc_lnk( ztv2, 'T', 1. ) 
     452      CALL lbc_lnk( 'icedyn_adv_umx', ztv2, 'T', 1. ) 
    453453      ! 
    454454      !                                                     !--  BiLaplacian in j-direction  --! 
    … …  
    463463         END DO 
    464464      END DO 
    465       CALL lbc_lnk( ztv4, 'T', 1. ) 
     465      CALL lbc_lnk( 'icedyn_adv_umx', ztv4, 'T', 1. ) 
    466466      ! 
    467467      ! 
    … …  
    484484            END DO 
    485485         END DO 
    486          CALL lbc_lnk( pt_v, 'V',  1. ) 
     486         CALL lbc_lnk( 'icedyn_adv_umx', pt_v, 'V',  1. ) 
    487487         ! 
    488488      CASE( 3 )                                                !==  3rd order central TIM  ==! (Eq. 24) 
    … …  
    567567         END DO 
    568568      END DO 
    569       CALL lbc_lnk( zdiv, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
     569      CALL lbc_lnk( 'icedyn_adv_umx', zdiv, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
    570570 
    571571      ! Determine ice masks for before and after tracers  
    … …  
    605605         END DO 
    606606      END DO 
    607       CALL lbc_lnk_multi( zbetup, 'T', 1., zbetdo, 'T', 1. )   ! lateral boundary cond. (unchanged sign) 
     607      CALL lbc_lnk_multi( 'icedyn_adv_umx', zbetup, 'T', 1., zbetdo, 'T', 1. )   ! lateral boundary cond. (unchanged sign) 
    608608 
    609609      ! monotonic flux in the i & j direction (paa & pbb) 
Note: See TracChangeset for help on using the changeset viewer.