Changeset 15398 for NEMO/trunk/src/OCE/step.F90

Timestamp:

2021-10-19T10:49:42+02:00 (20 months ago)

Author:

timgraham

Message:

Bug fix for #2717 (missing calls to asm_bkg_wri)

File:

• NEMO/trunk/src/OCE/step.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/step.F90

@@ -229 +229 @@
          IF(  lk_asminc .AND. ln_asmiau .AND. ln_dyninc )   &
                   &         CALL dyn_asm_inc   ( kstp, Nbb, Nnn, uu, vv, Nrhs )  ! apply dynamics assimilation increment
+         IF( ln_bkgwri )    CALL asm_bkg_wri( kstp, Nnn )     ! output background fields
          IF( ln_bdy     )   CALL bdy_dyn3d_dmp ( kstp, Nbb,      uu, vv, Nrhs )  ! bdy damping trends
 #if defined key_agrif