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/tests/WAD/MY_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/tests/WAD/MY_SRC/bdyini.F90

    r10074 r10425  
    11331133         END DO 
    11341134      END DO 
    1135       CALL lbc_lnk_multi( bdyumask, 'U', 1. , bdyvmask, 'V', 1. )   ! Lateral boundary cond.  
     1135      CALL lbc_lnk_multi( 'bdyini', bdyumask, 'U', 1. , bdyvmask, 'V', 1. )   ! Lateral boundary cond.  
    11361136 
    11371137      ! bdy masks are now set to zero on boundary points: 
     
    11691169 
    11701170      ! Lateral boundary conditions 
    1171       CALL lbc_lnk( zfmask, 'F', 1. )  
    1172       CALL lbc_lnk_multi( bdyumask, 'U', 1. , bdyvmask, 'V', 1., bdytmask, 'T', 1. ) 
     1171      CALL lbc_lnk( 'bdyini', zfmask, 'F', 1. )  
     1172      CALL lbc_lnk_multi( 'bdyini', bdyumask, 'U', 1. , bdyvmask, 'V', 1., bdytmask, 'T', 1. ) 
    11731173      DO ib_bdy = 1, nb_bdy       ! Indices and directions of rim velocity components 
    11741174 
     
    12801280         END DO 
    12811281         ! 
    1282          IF( lk_mpp )   CALL mpp_sum( bdysurftot )      ! sum over the global domain 
     1282         CALL mpp_sum( 'bdyini', bdysurftot )      ! sum over the global domain 
    12831283      END IF    
    12841284      ! 
     
    15201520            END DO 
    15211521         END DO 
    1522          IF( lk_mpp )   CALL mpp_sum( ztestmask, 2 )   ! sum over the global domain 
     1522         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    15231523 
    15241524         IF (ztestmask(1)==1) THEN  
     
    15641564            END DO 
    15651565         END DO 
    1566          IF( lk_mpp )   CALL mpp_sum( ztestmask, 2 )   ! sum over the global domain 
     1566         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    15671567 
    15681568         IF (ztestmask(1)==1) THEN 
     
    16081608            END DO 
    16091609         END DO 
    1610          IF( lk_mpp )   CALL mpp_sum( ztestmask, 2 )   ! sum over the global domain 
     1610         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    16111611 
    16121612         IF ((ztestmask(1)==1).AND.(icorns(ib,1)==0)) THEN 
     
    16381638            END DO 
    16391639         END DO 
    1640          IF( lk_mpp )   CALL mpp_sum( ztestmask, 2 )   ! sum over the global domain 
     1640         CALL mpp_sum( 'bdyini', ztestmask, 2 )   ! sum over the global domain 
    16411641 
    16421642         IF ((ztestmask(1)==1).AND.(icornn(ib,1)==0)) THEN 
  • NEMO/trunk/tests/WAD/MY_SRC/usrdef_zgr.F90

    r10074 r10425  
    234234         zhu(ji,:) = 0.5_wp * ( zht(ji,:) + zht(ji+1,:) ) 
    235235      END DO 
    236       CALL lbc_lnk( zhu, 'U', 1. )     ! boundary condition: this mask the surrounding grid-points 
     236      CALL lbc_lnk( 'usrdef_zgr', zhu, 'U', 1. )     ! boundary condition: this mask the surrounding grid-points 
    237237      !                                ! ==>>>  set by hand non-zero value on first/last columns & rows  
    238238      DO ji = mi0(1), mi1(1)              ! first row of global domain only 
     
    247247         zhv(:,jj) = 0.5_wp * ( zht(:,jj) + zht(:,jj+1) ) 
    248248      END DO 
    249       CALL lbc_lnk( zhv, 'V', 1. )     ! boundary condition: this mask the surrounding grid-points 
     249      CALL lbc_lnk( 'usrdef_zgr', zhv, 'V', 1. )     ! boundary condition: this mask the surrounding grid-points 
    250250      DO jj = mj0(1), mj1(1)   ! first  row of global domain only 
    251251         zhv(:,jj) = zht(:,jj) 
     
    272272 
    273273 
    274       CALL lbc_lnk( z2d, 'T', 1. )        ! closed basin since jperio = 0 (see userdef_nam.F90) 
     274      CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. )        ! closed basin since jperio = 0 (see userdef_nam.F90) 
    275275      k_top(:,:) = NINT( z2d(:,:) ) 
    276276      ! 
     
    311311           END DO       
    312312         END DO       
    313          CALL lbc_lnk( pdept, 'T', 1. ) 
    314          CALL lbc_lnk( pdepw, 'T', 1. ) 
    315          CALL lbc_lnk( pe3t , 'T', 1. ) 
    316          CALL lbc_lnk( pe3w , 'T', 1. ) 
    317          CALL lbc_lnk( pe3u , 'U', 1. ) 
    318          CALL lbc_lnk( pe3uw, 'U', 1. ) 
    319          CALL lbc_lnk( pe3f , 'F', 1. ) 
    320          CALL lbc_lnk( pe3v , 'V', 1. ) 
    321          CALL lbc_lnk( pe3vw, 'V', 1. ) 
     313         CALL lbc_lnk( 'usrdef_zgr', pdept, 'T', 1. ) 
     314         CALL lbc_lnk( 'usrdef_zgr', pdepw, 'T', 1. ) 
     315         CALL lbc_lnk( 'usrdef_zgr', pe3t , 'T', 1. ) 
     316         CALL lbc_lnk( 'usrdef_zgr', pe3w , 'T', 1. ) 
     317         CALL lbc_lnk( 'usrdef_zgr', pe3u , 'U', 1. ) 
     318         CALL lbc_lnk( 'usrdef_zgr', pe3uw, 'U', 1. ) 
     319         CALL lbc_lnk( 'usrdef_zgr', pe3f , 'F', 1. ) 
     320         CALL lbc_lnk( 'usrdef_zgr', pe3v , 'V', 1. ) 
     321         CALL lbc_lnk( 'usrdef_zgr', pe3vw, 'V', 1. ) 
    322322         WHERE( pe3t (:,:,:) == 0._wp )   pe3t (:,:,:) = 1._wp 
    323323         WHERE( pe3u (:,:,:) == 0._wp )   pe3u (:,:,:) = 1._wp 
Note: See TracChangeset for help on using the changeset viewer.