Changeset 15008 for NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/stpmlf.F90

Timestamp:

2021-06-17T12:11:24+02:00 (3 years ago)

Author:

gsamson

Message:

add dyn_dmp to mlf step; update dta_uvd interface; adapt istate accordingly & cleaning (#2680)

File:

• NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/stpmlf.F90 (modified) (1 diff)

NEMO/branches/2021/ticket2680_C1D_PAPA/src/OCE/stpmlf.F90

@@ -232 +232 @@
                          vv(:,:,:,Nrhs) = 0._wp
 
+      IF( ln_dyndmp .AND. ln_c1d )  CALL dyn_dmp( kstp, Nbb, Nnn, uu(:,:,:,Nrhs), vv(:,:,:,Nrhs), Nrhs )   ! internal damping trends- momentum
+
       IF( ln_tile ) CALL dom_tile_start         ! [tiling] DYN tiling loop (1)
       DO jtile = 1, nijtile