Changeset 9523 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90

Timestamp:

2018-04-27T19:39:31+02:00 (6 years ago)

Author:

mathiot

Message:

fix to OBS to deal with a change in the halo at the wrap points (Dan Lea)

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/OBS/mpp_map.F90

@@ -12 +12 @@
    USE par_kind, ONLY :   wp            ! Precision variables
    USE par_oce , ONLY :   jpi, jpj      ! Ocean parameters
-   USE dom_oce , ONLY :   mig, mjg, nldi, nlei, nldj, nlej, narea   ! Ocean space and time domain variables
+   USE dom_oce , ONLY :   mig, mjg, nldi, nlei, nldj, nlej, nlci, nlcj, narea   ! Ocean space and time domain variables
 #if defined key_mpp_mpi
    USE lib_mpp, ONLY :   mpi_comm_opa   ! MPP library
@@ -64 +64 @@
       imppmap(:,:) = 0
 
-      ! Setup local grid points
-      imppmap(mig(nldi):mig(nlei),mjg(nldj):mjg(nlej)) = narea 
+!      ! Setup local grid points
+      imppmap(mig(1):mig(nlci),mjg(1):mjg(nlcj)) = narea
       
       ! Get global data