Changeset 8222 for branches

Timestamp:

2017-06-27T12:21:38+02:00 (7 years ago)

Author:

jwhile

Message:

Bug fix to OBS prep that was included in old version of OBS code, but never included in refactored code. Fix was pointed out by Ana.

File:

• branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 (modified) (2 diffs)

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

@@ -1067 +1067 @@
                IF ( ( ABS( zgphi(ji,jj,jobs) - pobsphi(jobs) ) < 1.0e-6_wp ) &
                   & .AND. &
-                  & ( ABS( zglam(ji,jj,jobs) - pobslam(jobs) ) < 1.0e-6_wp ) &
-                  & ) THEN
+                  & ( ABS( MOD( zglam(ji,jj,jobs) - pobslam(jobs),360.0) )  &
+                  & < 1.0e-6_wp ) ) THEN
                   lgridobs = .TRUE.
                   iig = ji
@@ -1283 +1283 @@
                IF ( ( ABS( zgphi(ji,jj,jobs) - pobsphi(jobs) ) < 1.0e-6_wp ) &
                   & .AND. &
-                  & ( ABS( zglam(ji,jj,jobs) - pobslam(jobs) ) < 1.0e-6_wp ) &
+                  & ( ABS( MOD( zglam(ji,jj,jobs) - pobslam(jobs),360.0) ) < 1.0e-6_wp ) &
                   & ) THEN
                   lgridobs = .TRUE.