Changeset 10493 for branches/UKMO/CO6_shelfclimate_fabm/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90

Timestamp:

2019-01-10T12:08:47+01:00 (5 years ago)

Author:

hadjt

Message:

Updated region mean to fix processor overlap double count error

File:

• branches/UKMO/CO6_shelfclimate_fabm/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90 (modified) (1 diff)

branches/UKMO/CO6_shelfclimate_fabm/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90

@@ -845 +845 @@
           !WRITE(numout,*) kt,start_reg_mean_loop
           IF(lwp .AND. verbose) WRITE(numout,*) 'dia_wri_region_mean : '//tmp_name//'; begin spatial loops: '
-          DO ji = 1,jpi
-              DO jj = 1,jpj
+          DO ji = nldi,nlei
+              DO jj = nldj,nlej
                     IF ( tmask(ji,jj,1) == 1.0_wp ) THEN
                         ind = internal_region_mask(ji,jj)+1