Changeset 10493 for branches/UKMO

Timestamp:

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

Author:

hadjt

Message:

Updated region mean to fix processor overlap double count error

Location:

branches/UKMO/CO6_shelfclimate_fabm/NEMOGCM/NEMO/OPA_SRC/DIA

Files:

• diaar5.F90 (modified) (1 diff)
• diaregmean.F90 (modified) (1 diff)

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

@@ -205 +205 @@
       zbotpres_mat(:,:) = zbotpres(:,:)
       CALL iom_put( 'botpres', zbotpres_mat )
-
+      
       !                                         ! Mean density anomalie, temperature and salinity
       ztemp = 0._wp

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