Changeset 7932 for branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

Timestamp:

2017-04-19T13:07:37+02:00 (7 years ago)

Author:

jwhile

Message:

Bug fixes

File:

• branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 (modified) (3 diffs)

branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -144 +144 @@
          &              surfdata%nsurf,   surfdata%nyea, surfdata%nmon, &
          &              surfdata%nday,    surfdata%nhou, surfdata%nmin, &
-         &              surfdata%nqc,     surfdata%mstp, iotdobs,       &
-         &              kqc_cutoff = iqc_cutoff  )
+         &              surfdata%nqc,     surfdata%mstp, iotdobs        )
 
       CALL obs_mpp_sum_integer( iotdobs, iotdobsmpp )
@@ -170 +169 @@
          &                 iosdsobs,     ilansobs,     &
          &                 inlasobs,     ld_nea,       &
-         &                 ibdysobs,     ld_bound_reject        )
+         &                 ibdysobs,     ld_bound_reject, &
+         &                 iqc_cutoff                     )
 
       CALL obs_mpp_sum_integer( iosdsobs, iosdsobsmpp )
@@ -1450 +1450 @@
    END SUBROUTINE obs_pro_rej
 
-   SUBROUTINE obs_uv_rej( profdata, knumu, knumv, kqc_cutof )
+   SUBROUTINE obs_uv_rej( profdata, knumu, knumv, kqc_cutoff )
       !!----------------------------------------------------------------------
       !!                    ***  ROUTINE obs_uv_rej ***