Changeset 5106 for branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

Timestamp:

2015-02-25T17:12:01+01:00 (9 years ago)

Author:

jwhile

Message:

Minor fixes due to review

File:

• branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 (modified) (2 diffs)

branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -1829 +1829 @@
          ! Check if next to land 
          IF (  ANY( zgmsk(1:2,1:2,1,jobs) == 0.0_wp ) ) THEN 
-           ll_next_to_land=.TRUE. 
+            ll_next_to_land=.TRUE. 
          ELSE 
-           ll_next_to_land=.FALSE. 
+            ll_next_to_land=.FALSE. 
          ENDIF 
          
@@ -1879 +1879 @@
                ! Or if it is within the mask 
                IF ( ALL( fsdepw(iig-1:iig+1,ijg-1:ijg+1,kpk) < pobsdep(jobsp) ) & 
-               &     .OR. & 
-               &  ( SUM( zgmsk(1:2,1:2,kobsk(jobsp)-1:kobsk(jobsp),jobs) ) & 
-               &  == 0.0_wp) ) THEN 
+                  &     .OR. & 
+                  &  ( SUM( zgmsk(1:2,1:2,kobsk(jobsp)-1:kobsk(jobsp),jobs) ) & 
+                  &  == 0.0_wp) ) THEN 
                   kobsqc(jobsp) = kobsqc(jobsp) + 12 
                   klanobs = klanobs + 1