New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10489 for branches – NEMO

Changeset 10489 for branches


Ignore:
Timestamp:
2019-01-09T19:00:08+01:00 (5 years 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.