Changeset 10489


Ignore:
Timestamp:
2019-01-09T19:00:08+01:00 (15 months ago)
Author:
hadjt
Message:

Updated DIA/diaregmean.F90 to fix bug caused by double counting grid boxes where processors overlap

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/CO6_shelfclimate/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90

    r7613 r10489  
    518518          !CALL cpu_time(start_reg_mean_loop) 
    519519          !WRITE(numout,*) kt,start_reg_mean_loop 
    520           DO ji = 1,jpi 
    521               DO jj = 1,jpj 
     520          DO ji = nldi,nlei 
     521              DO jj = nldj,nlej 
    522522                    IF ( tmask(ji,jj,1) == 1.0_wp ) THEN 
    523523                        ind = internal_region_mask(ji,jj)+1 
Note: See TracChangeset for help on using the changeset viewer.