Changeset 6990 for branches/UKMO/dev_r4650_general_vert_coord_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

Timestamp:

2016-10-05T11:18:51+02:00 (8 years ago)

Author:

kingr

Message:

Added code from nemo3.4 OBS branch to allow rejection of observations near open boundaries.

File:

• branches/UKMO/dev_r4650_general_vert_coord_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 (modified) (3 diffs)

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

@@ -171 +171 @@
          &            ln_sla, ln_sladt, ln_slafb,                     &
          &            ln_ssh, ln_sst, ln_sstfb, ln_sss, ln_nea,       &
+         &            ln_bound_reject,                                &
          &            enactfiles, coriofiles, profbfiles,             &
          &            slafilesact, slafilespas, slafbfiles,           &
@@ -244 +245 @@
       ln_velfb_av(:) = .FALSE.
       ln_ignmis = .FALSE.
+      ln_bound_reject = .TRUE.
 
       ! Read Namelist namobs : control observation diagnostics
@@ -469 +471 @@
          WRITE(numout,*) '             Type of horizontal interpolation method        n2dint = ', n2dint
          WRITE(numout,*) '             Rejection of observations near land swithch    ln_nea = ', ln_nea
+         WRITE(numout,*) '             Rejection of obs near open bdys       ln_bound_reject = ', ln_bound_reject
          WRITE(numout,*) '             MSSH correction scheme                         nmsshc = ', nmsshc
          WRITE(numout,*) '             MDT  correction                               mdtcorr = ', mdtcorr