- Timestamp:
- 2021-08-24T14:00:04+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_CS2_SIT_QC/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90
r13393 r15202 974 974 surfdataqc%robs(jobs,1) = (surfdataqc%robs(jobs,1)*rhow + surfdataqc%rext(jobs,2)*rhos)/ & 975 975 (rhow - rhoi) 976 ! Flag any negative ice thickness values as bad977 IF (surfdataqc%robs(jobs,1) < 0.0) THEN978 surfdataqc%nqc(jobs) = 4979 ENDIF980 976 ENDIF 981 977
Note: See TracChangeset
for help on using the changeset viewer.