Changeset 15772 for NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/DYN/dynnxt.F90

Timestamp:

2022-04-08T12:40:22+02:00 (2 years ago)

Author:

frrh

Message:

Add lbc_lnk calls for GC5 restartability.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/DYN/dynnxt.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/DYN/dynnxt.F90

@@ -248 +248 @@
             IF( ln_dynadv_vec ) THEN      ! Asselin filter applied on velocity
                ! Before filtered scale factor at (u/v)-points
+               call lbc_lnk("dynnxt", e3t_b, 'T', 1.0_wp)
+
                CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' )
                CALL dom_vvl_interpol( e3t_b(:,:,:), e3v_b(:,:,:), 'V' )