New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8653 for branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90 – NEMO

Ignore:
Timestamp:
2017-10-23T18:32:44+02:00 (6 years ago)
Author:
dford
Message:

Updates for getting biogeochemical fields from MEDUSA. See GMED ticket 344.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

    r7992 r8653  
    982982            surfdataqc%rmod(jobs,1) = zext(1) 
    983983         ENDIF 
     984          
     985         IF ( zext(1) == obfillflt ) THEN 
     986            ! If the observation value is a fill value, set QC flag to bad 
     987            surfdataqc%nqc(jobs) = 4 
     988         ENDIF 
    984989 
    985990      END DO 
Note: See TracChangeset for help on using the changeset viewer.