- Timestamp:
- 2018-09-17T15:00:33+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mppini.F90
r10132 r10133 775 775 jpni = num_pes 776 776 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 777 799 ! Search through factors for the pair that are closest in value 778 800 mindiff = 1000000 … … 790 812 ! 791 813 jpnij = jpni*jpnj 814 #endif 792 815 #endif 793 816 !
Note: See TracChangeset
for help on using the changeset viewer.