Changeset 10133


Ignore:
Timestamp:
2018-09-17T15:00:33+02:00 (22 months ago)
Author:
dguibert
Message:

BULL_MPP_OBJECTIVE:(jpni,jnpj) to minimise the communication size

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mppini.F90

    r10132 r10133  
    775775         jpni = num_pes 
    776776      ELSE 
     777#ifdef BULL_MPP_OBJECTIVE 
     778         ! Search through factors for the pair that minimise the objective 
     779         ! function (idiff) 
     780         mindiff = huge(1) 
     781         imin    = 1 
     782         DO ji = 1, nfact-1, 2 
     783            jpnj = ifact(ji) 
     784            jpni = ifact(ji + 1) 
     785            idiff = (jpni-1)*2*jpjglo & 
     786                  + (jpnj-1)*2*jpiglo 
     787            IF( idiff < mindiff ) THEN 
     788               mindiff = idiff 
     789               imin = ji 
     790            ENDIF 
     791         END DO 
     792         jpnj = ifact(imin) 
     793         jpni = ifact(imin + 1) 
     794         write(numout, *) 'BULL_MPP_OBJECTIVE: ',jpni, jpnj 
     795      ENDIF 
     796      ! 
     797      jpnij = jpni*jpnj 
     798#else 
    777799         ! Search through factors for the pair that are closest in value 
    778800         mindiff = 1000000 
     
    790812      ! 
    791813      jpnij = jpni*jpnj 
     814#endif 
    792815#endif 
    793816      ! 
Note: See TracChangeset for help on using the changeset viewer.