Changeset 8222


Ignore:
Timestamp:
2017-06-27T12:21:38+02:00 (3 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

    r8035 r8222  
    10671067               IF ( ( ABS( zgphi(ji,jj,jobs) - pobsphi(jobs) ) < 1.0e-6_wp ) & 
    10681068                  & .AND. & 
    1069                   & ( ABS( zglam(ji,jj,jobs) - pobslam(jobs) ) < 1.0e-6_wp ) & 
    1070                   & ) THEN 
     1069                  & ( ABS( MOD( zglam(ji,jj,jobs) - pobslam(jobs),360.0) ) & 
     1070                  & < 1.0e-6_wp ) ) THEN 
    10711071                  lgridobs = .TRUE. 
    10721072                  iig = ji 
     
    12831283               IF ( ( ABS( zgphi(ji,jj,jobs) - pobsphi(jobs) ) < 1.0e-6_wp ) & 
    12841284                  & .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 ) & 
    12861286                  & ) THEN 
    12871287                  lgridobs = .TRUE. 
Note: See TracChangeset for help on using the changeset viewer.