Changeset 6212 for branches/UKMO/dev_r5518_add_var_to_assim_bkg

Timestamp:

2016-01-05T16:50:23+01:00 (8 years ago)

Author:

kingr

Message:

Added avt variable to assim bkg.

Location:

branches/UKMO/dev_r5518_add_var_to_assim_bkg/NEMOGCM/NEMO/OPA_SRC

Files:

• ASM/asmbkg.F90 (modified) (1 diff)
• OBS/diaobs.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_add_var_to_assim_bkg/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

@@ -120 +120 @@
 #endif
             CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               )
+            CALL iom_rstput( kt, nitbkg_r, inum, 'avt'    , avt               )
             !
             CALL iom_close( inum )

branches/UKMO/dev_r5518_add_var_to_assim_bkg/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

@@ -466 +466 @@
       CALL obs_typ_init
       
-      CALL mppmap_init
+      IF (ln_grid_global) THEN
+         CALL mppmap_init
+      END IF
       
       ! Parameter control
@@ -1080 +1082 @@
       IF ( ln_sst ) THEN
          DO jsstset = 1, nsstsets
+            ld_sstnight(jsstset)=.FALSE.
             CALL obs_sst_opt( sstdatqc(jsstset),                &
                &              kstp, jpi, jpj, nit000, idaystp,  &