Changeset 10493


Ignore:
Timestamp:
2019-01-10T12:08:47+01:00 (15 months 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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/CO6_shelfclimate_fabm/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

    r7572 r10493  
    205205      zbotpres_mat(:,:) = zbotpres(:,:) 
    206206      CALL iom_put( 'botpres', zbotpres_mat ) 
    207  
     207       
    208208      !                                         ! Mean density anomalie, temperature and salinity 
    209209      ztemp = 0._wp 
  • branches/UKMO/CO6_shelfclimate_fabm/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90

    r8672 r10493  
    845845          !WRITE(numout,*) kt,start_reg_mean_loop 
    846846          IF(lwp .AND. verbose) WRITE(numout,*) 'dia_wri_region_mean : '//tmp_name//'; begin spatial loops: ' 
    847           DO ji = 1,jpi 
    848               DO jj = 1,jpj 
     847          DO ji = nldi,nlei 
     848              DO jj = nldj,nlej 
    849849                    IF ( tmask(ji,jj,1) == 1.0_wp ) THEN 
    850850                        ind = internal_region_mask(ji,jj)+1 
Note: See TracChangeset for help on using the changeset viewer.