Changeset 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/NST/agrif_oce_sponge.F90
- Timestamp:
- 2018-10-03T16:49:50+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/NST/agrif_oce_sponge.F90
r10068 r10170 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.
Note: See TracChangeset
for help on using the changeset viewer.