Changeset 10425 for NEMO/trunk/src/NST


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

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

Location:
NEMO/trunk/src/NST
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_oce.F90

    r10413 r10425  
    2222   !                                              !!* Namelist namagrif: AGRIF parameters 
    2323   LOGICAL , PUBLIC ::   ln_spc_dyn    = .FALSE.   !: 
    24    INTEGER , PUBLIC, PARAMETER ::   nn_sponge_len = 1  !: Sponge width (in number of parent grid points) 
     24   INTEGER , PUBLIC, PARAMETER ::   nn_sponge_len = 2  !: Sponge width (in number of parent grid points) 
    2525   REAL(wp), PUBLIC ::   rn_sponge_tra = 2800.     !: sponge coeff. for tracers 
    2626   REAL(wp), PUBLIC ::   rn_sponge_dyn = 2800.     !: sponge coeff. for dynamics 
  • NEMO/trunk/src/NST/agrif_oce_sponge.F90

    r10068 r10425  
    164164            END DO 
    165165         END DO 
    166          CALL lbc_lnk( fsaht_spu, 'U', 1. )   ! Lateral boundary conditions 
    167          CALL lbc_lnk( fsaht_spv, 'V', 1. ) 
     166         CALL lbc_lnk( 'agrif_oce_sponge', fsaht_spu, 'U', 1. )   ! Lateral boundary conditions 
     167         CALL lbc_lnk( 'agrif_oce_sponge', fsaht_spv, 'V', 1. ) 
    168168          
    169169         spongedoneT = .TRUE. 
     
    181181            END DO 
    182182         END DO 
    183          CALL lbc_lnk( fsahm_spt, 'T', 1. )   ! Lateral boundary conditions 
    184          CALL lbc_lnk( fsahm_spf, 'F', 1. ) 
     183         CALL lbc_lnk( 'agrif_oce_sponge', fsahm_spt, 'T', 1. )   ! Lateral boundary conditions 
     184         CALL lbc_lnk( 'agrif_oce_sponge', fsahm_spf, 'F', 1. ) 
    185185          
    186186         spongedoneU = .TRUE. 
  • NEMO/trunk/src/NST/agrif_user.F90

    r10068 r10425  
    280280         CALL Agrif_Bc_variable(e3t_id,calledweight=1.,procname=interpe3t) 
    281281         ! 
    282          IF (lk_mpp) CALL mpp_sum( kindic_agr ) 
     282         CALL mpp_sum( 'agrif_user', kindic_agr ) 
    283283         IF( kindic_agr /= 0 ) THEN 
    284284            CALL ctl_stop('Child Bathymetry is not correct near boundaries.') 
Note: See TracChangeset for help on using the changeset viewer.