Changeset 10425 for NEMO/trunk/src/NST
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/NST
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_oce.F90
r10413 r10425 22 22 ! !!* Namelist namagrif: AGRIF parameters 23 23 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) 25 25 REAL(wp), PUBLIC :: rn_sponge_tra = 2800. !: sponge coeff. for tracers 26 26 REAL(wp), PUBLIC :: rn_sponge_dyn = 2800. !: sponge coeff. for dynamics -
NEMO/trunk/src/NST/agrif_oce_sponge.F90
r10068 r10425 164 164 END DO 165 165 END DO 166 CALL lbc_lnk( fsaht_spu, 'U', 1. ) ! Lateral boundary conditions167 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. ) 168 168 169 169 spongedoneT = .TRUE. … … 181 181 END DO 182 182 END DO 183 CALL lbc_lnk( fsahm_spt, 'T', 1. ) ! Lateral boundary conditions184 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. ) 185 185 186 186 spongedoneU = .TRUE. -
NEMO/trunk/src/NST/agrif_user.F90
r10068 r10425 280 280 CALL Agrif_Bc_variable(e3t_id,calledweight=1.,procname=interpe3t) 281 281 ! 282 IF (lk_mpp) CALL mpp_sum(kindic_agr )282 CALL mpp_sum( 'agrif_user', kindic_agr ) 283 283 IF( kindic_agr /= 0 ) THEN 284 284 CALL ctl_stop('Child Bathymetry is not correct near boundaries.')
Note: See TracChangeset
for help on using the changeset viewer.