- Timestamp:
- 2017-06-27T12:21:38+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90
r8035 r8222 1067 1067 IF ( ( ABS( zgphi(ji,jj,jobs) - pobsphi(jobs) ) < 1.0e-6_wp ) & 1068 1068 & .AND. & 1069 & ( ABS( zglam(ji,jj,jobs) - pobslam(jobs) ) < 1.0e-6_wp )&1070 & ) THEN1069 & ( ABS( MOD( zglam(ji,jj,jobs) - pobslam(jobs),360.0) ) & 1070 & < 1.0e-6_wp ) ) THEN 1071 1071 lgridobs = .TRUE. 1072 1072 iig = ji … … 1283 1283 IF ( ( ABS( zgphi(ji,jj,jobs) - pobsphi(jobs) ) < 1.0e-6_wp ) & 1284 1284 & .AND. & 1285 & ( ABS( zglam(ji,jj,jobs) - pobslam(jobs) ) < 1.0e-6_wp ) &1285 & ( ABS( MOD( zglam(ji,jj,jobs) - pobslam(jobs),360.0) ) < 1.0e-6_wp ) & 1286 1286 & ) THEN 1287 1287 lgridobs = .TRUE.
Note: See TracChangeset
for help on using the changeset viewer.