Changeset 9172 for branches/UKMO/dev_r5518_obs_oper_update_gridlocalfix/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

Timestamp:

2018-01-03T12:40:54+01:00 (6 years ago)

Author:

jenniewaters

Message:

temporary fix to get ln_grid_global equals false working.

File:

• branches/UKMO/dev_r5518_obs_oper_update_gridlocalfix/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_obs_oper_update_gridlocalfix/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90

@@ -900 +900 @@
       CALL obs_int_comm_2d( imaxifp, imaxjfp, isurf, kpi, kpj, &
          &                  igrdi, igrdj, psurf, zsurf )
-      CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, &
-         &                  igrdip1, igrdjp1, glamf, zglamf )
-      CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, &
-         &                  igrdip1, igrdjp1, gphif, zgphif )
+
+      IF ( k2dint > 4 ) THEN
+
+         CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, &
+            &                  igrdip1, igrdjp1, glamf, zglamf )
+         CALL obs_int_comm_2d( imaxifp+1, imaxjfp+1, isurf, kpi, kpj, &
+            &                  igrdip1, igrdjp1, gphif, zgphif )
+
+      ENDIF
 
       ! At the end of the day get interpolated means