- Timestamp:
- 2021-05-06T17:42:46+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stp2d.F90
r14782 r14800 29 29 #if defined key_agrif 30 30 USE agrif_oce_interp 31 USE agrif_oce_sponge 31 32 #endif 32 33 … … 123 124 ! !* lateral viscosity *! 124 125 CALL dyn_ldf( kt, Kbb, Kbb, uu, vv, Krhs ) 126 #if defined key_agrif 127 IF(.NOT. Agrif_Root() ) THEN !* AGRIF: sponge *! 128 CALL Agrif_Sponge_dyn 129 ENDIF 130 #endif 125 131 ! 126 132 ! !* hydrostatic pressure gradient *!
Note: See TracChangeset
for help on using the changeset viewer.