Changeset 15650 for branches/UKMO/dev_r5518_obs_oper_WISA_osse/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

Timestamp:

2022-01-18T09:50:49+01:00 (2 years ago)

Author:

kingr

Message:

A-TSCV: reject SLA where SIC above limit.

File:

• branches/UKMO/dev_r5518_obs_oper_WISA_osse/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_obs_oper_WISA_osse/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

@@ -954 +954 @@
             IF ( surfdataqc%lclim ) surfdataqc%rclm(jobs,1) = zclm(1)
 
+            IF ( surfdataqc%lclim .AND. TRIM(surfdataqc%cvars(1)) == 'SLA' ) THEN
+               IF (surfdataqc%rclm(jobs,1) > 0.01) THEN
+                   surfdataqc%nqc(jobs) = 4
+               END IF
+            ENDIF
+
             IF ( zext(1) == obfillflt ) THEN
                ! If the observation value is a fill value, set QC flag to bad