Changeset 15183 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_OBS_ASM/src/OCE/nemogcm.F90

Timestamp:

2021-08-12T15:18:46+02:00 (3 years ago)

Author:

kingr

Message:

Adding changes required to write out time-averaged assimilation background. Required moving call to asm_bkg_wri from asminc.F90 to nemogcm.F90 to avoid circular USE statements.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_CO9_OBS_ASM/src/OCE/nemogcm.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_OBS_ASM/src/OCE/nemogcm.F90

@@ -166 +166 @@
       END DO
 #else
+      IF( lk_asminc .AND. ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 )    ! Output background fields
       !
 # if defined key_agrif