Changeset 5857 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90

Timestamp:

2015-11-02T18:28:38+01:00 (8 years ago)

Author:

jenniewaters

Message:

Removing global arrays when ln_grid_global=.false.

File:

• branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90 (modified) (2 diffs)

branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90

@@ -21 +21 @@
    USE dom_oce                     ! Ocean space and time domain variables
    USE obs_mpp, ONLY : &           ! MPP support routines for observation diagnostics
-      & obs_mpp_find_obs_proc, &
+      & obs_mpp_find_obs_proc_local, &
       & mpp_global_max,        &
       & obs_mpp_max_integer
@@ -613 +613 @@
          CALL obs_mpp_max_integer( kobsj, kobs )
       ELSE
-         CALL obs_mpp_find_obs_proc( kproc, kobsi, kobsj, kobs )
+         CALL obs_mpp_find_obs_proc_local( kproc, kobs )
       ENDIF