Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (2 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

Location:
NEMO/trunk/src/OCE/LDF
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LDF/ldfc1d_c2d.F90

    r10069 r10425  
    8787            END DO 
    8888         END DO 
    89          CALL lbc_lnk( pah2, 'F', 1. )   ! Lateral boundary conditions 
     89         CALL lbc_lnk( 'ldfc1d_c2d', pah2, 'F', 1. )   ! Lateral boundary conditions 
    9090         ! 
    9191      CASE( 'TRA' )                     ! U- and V-points (zdep1 & 2 are an approximation in zps-coord.) 
     
    101101         END DO 
    102102         ! Lateral boundary conditions 
    103          CALL lbc_lnk_multi( pah1, 'U', 1. , pah2, 'V', 1. )    
     103         CALL lbc_lnk_multi( 'ldfc1d_c2d', pah1, 'U', 1. , pah2, 'V', 1. )    
    104104         ! 
    105105      CASE DEFAULT                        ! error 
  • NEMO/trunk/src/OCE/LDF/ldfdyn.F90

    r10068 r10425  
    399399         ENDIF 
    400400         ! 
    401          CALL lbc_lnk_multi( ahmt, 'T', 1.,  ahmf, 'F', 1. ) 
     401         CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1.,  ahmf, 'F', 1. ) 
    402402         ! 
    403403         ! 
     
    477477         ENDIF 
    478478         ! 
    479          CALL lbc_lnk_multi( ahmt, 'T', 1. , ahmf, 'F', 1. ) 
     479         CALL lbc_lnk_multi( 'ldfdyn', ahmt, 'T', 1. , ahmf, 'F', 1. ) 
    480480         ! 
    481481      END SELECT 
  • NEMO/trunk/src/OCE/LDF/ldfslp.F90

    r10068 r10425  
    232232         END DO 
    233233      END DO 
    234       CALL lbc_lnk_multi( zwz, 'U', -1.,  zww, 'V', -1. )      ! lateral boundary conditions 
     234      CALL lbc_lnk_multi( 'ldfslp', zwz, 'U', -1.,  zww, 'V', -1. )      ! lateral boundary conditions 
    235235      ! 
    236236      !                                            !* horizontal Shapiro filter 
     
    314314         END DO 
    315315      END DO 
    316       CALL lbc_lnk_multi( zwz, 'T', -1.,  zww, 'T', -1. )      ! lateral boundary conditions 
     316      CALL lbc_lnk_multi( 'ldfslp', zwz, 'T', -1.,  zww, 'T', -1. )      ! lateral boundary conditions 
    317317      ! 
    318318      !                                           !* horizontal Shapiro filter 
     
    363363      ! IV. Lateral boundary conditions 
    364364      ! =============================== 
    365       CALL lbc_lnk_multi( uslp , 'U', -1. , vslp , 'V', -1. , wslpi, 'W', -1., wslpj, 'W', -1. ) 
     365      CALL lbc_lnk_multi( 'ldfslp', uslp , 'U', -1. , vslp , 'V', -1. , wslpi, 'W', -1., wslpj, 'W', -1. ) 
    366366 
    367367      IF(ln_ctl) THEN 
     
    611611      wslp2(:,:,1) = 0._wp                ! force the surface wslp to zero 
    612612 
    613       CALL lbc_lnk( wslp2, 'W', 1. )      ! lateral boundary confition on wslp2 only   ==>>> gm : necessary ? to be checked 
     613      CALL lbc_lnk( 'ldfslp', wslp2, 'W', 1. )      ! lateral boundary confition on wslp2 only   ==>>> gm : necessary ? to be checked 
    614614      ! 
    615615      IF( ln_timing )   CALL timing_stop('ldf_slp_triad') 
     
    725725      END DO 
    726726      !!gm this lbc_lnk should be useless.... 
    727       CALL lbc_lnk_multi( uslpml , 'U', -1. , vslpml , 'V', -1. , wslpiml, 'W', -1. , wslpjml, 'W', -1. )  
     727      CALL lbc_lnk_multi( 'ldfslp', uslpml , 'U', -1. , vslpml , 'V', -1. , wslpiml, 'W', -1. , wslpjml, 'W', -1. )  
    728728      ! 
    729729   END SUBROUTINE ldf_slp_mxl 
     
    793793!               END DO 
    794794!            END DO 
    795 !            CALL lbc_lnk_multi( uslp , 'U', -1. ; CALL lbc_lnk( vslp , 'V', -1.,  wslpi, 'W', -1.,  wslpj, 'W', -1. ) 
     795!            CALL lbc_lnk_multi( 'ldfslp', uslp , 'U', -1. ; CALL lbc_lnk( 'ldfslp', vslp , 'V', -1.,  wslpi, 'W', -1.,  wslpj, 'W', -1. ) 
    796796!!gm         ENDIF 
    797797      ENDIF 
  • NEMO/trunk/src/OCE/LDF/ldftra.F90

    r10068 r10425  
    707707         END DO 
    708708      END DO 
    709       CALL lbc_lnk( zaeiw(:,:), 'W', 1. )       ! lateral boundary condition 
     709      CALL lbc_lnk( 'ldftra', zaeiw(:,:), 'W', 1. )       ! lateral boundary condition 
    710710      !                
    711711      DO jj = 2, jpjm1                          !== aei at u- and v-points  ==! 
     
    715715         END DO  
    716716      END DO  
    717       CALL lbc_lnk_multi( paeiu(:,:,1), 'U', 1. , paeiv(:,:,1), 'V', 1. )      ! lateral boundary condition 
     717      CALL lbc_lnk_multi( 'ldftra', paeiu(:,:,1), 'U', 1. , paeiv(:,:,1), 'V', 1. )      ! lateral boundary condition 
    718718 
    719719      DO jk = 2, jpkm1                          !==  deeper values equal the surface one  ==! 
     
    821821!!gm     to be redesigned....    
    822822      !                                                  !==  eiv stream function: output  ==! 
    823       CALL lbc_lnk_multi( psi_uw, 'U', -1. , psi_vw, 'V', -1. ) 
     823      CALL lbc_lnk_multi( 'ldftra', psi_uw, 'U', -1. , psi_vw, 'V', -1. ) 
    824824      ! 
    825825!!gm      CALL iom_put( "psi_eiv_uw", psi_uw )                 ! output 
     
    848848         END DO 
    849849      END DO 
    850       CALL lbc_lnk( zw3d, 'T', 1. )      ! lateral boundary condition 
     850      CALL lbc_lnk( 'ldftra', zw3d, 'T', 1. )      ! lateral boundary condition 
    851851      CALL iom_put( "woce_eiv", zw3d ) 
    852852      ! 
     
    865865           END DO 
    866866        END DO 
    867         CALL lbc_lnk( zw2d, 'U', -1. ) 
    868         CALL lbc_lnk( zw3d, 'U', -1. ) 
     867        CALL lbc_lnk( 'ldftra', zw2d, 'U', -1. ) 
     868        CALL lbc_lnk( 'ldftra', zw3d, 'U', -1. ) 
    869869        CALL iom_put( "ueiv_heattr"  , zztmp * zw2d )                  ! heat transport in i-direction 
    870870        CALL iom_put( "ueiv_heattr3d", zztmp * zw3d )                  ! heat transport in i-direction 
     
    881881         END DO 
    882882      END DO 
    883       CALL lbc_lnk( zw2d, 'V', -1. ) 
     883      CALL lbc_lnk( 'ldftra', zw2d, 'V', -1. ) 
    884884      CALL iom_put( "veiv_heattr", zztmp * zw2d )                  !  heat transport in j-direction 
    885885      CALL iom_put( "veiv_heattr", zztmp * zw3d )                  !  heat transport in j-direction 
     
    900900           END DO 
    901901        END DO 
    902         CALL lbc_lnk( zw2d, 'U', -1. ) 
    903         CALL lbc_lnk( zw3d, 'U', -1. ) 
     902        CALL lbc_lnk( 'ldftra', zw2d, 'U', -1. ) 
     903        CALL lbc_lnk( 'ldftra', zw3d, 'U', -1. ) 
    904904        CALL iom_put( "ueiv_salttr", zztmp * zw2d )                  ! salt transport in i-direction 
    905905        CALL iom_put( "ueiv_salttr3d", zztmp * zw3d )                  ! salt transport in i-direction 
     
    916916         END DO 
    917917      END DO 
    918       CALL lbc_lnk( zw2d, 'V', -1. ) 
     918      CALL lbc_lnk( 'ldftra', zw2d, 'V', -1. ) 
    919919      CALL iom_put( "veiv_salttr", zztmp * zw2d )                  !  salt transport in j-direction 
    920920      CALL iom_put( "veiv_salttr", zztmp * zw3d )                  !  salt transport in j-direction 
Note: See TracChangeset for help on using the changeset viewer.