|
|
|
@ -544,14 +544,11 @@ c--- ===================================== |
|
|
|
|
|
|
|
if (nproc == 164 .or. nproc==169) then |
|
|
|
iterationStorage(lord,1)%vinfo%damp = [1.5, 0.8] |
|
|
|
SETUP(lord,250000) |
|
|
|
|
|
|
|
iterationStorage(nloVirt,1)%vinfo%damp = [1.5, 0.8] |
|
|
|
SETUP(nloVirt,100000) |
|
|
|
|
|
|
|
enableIps(nloReal, 1:2) = .true. |
|
|
|
iterationStorage(nloReal,1)%vinfo%damp = [1.5, 0.8] |
|
|
|
SETUP(nloReal,500000) |
|
|
|
endif |
|
|
|
|
|
|
|
if (nproc == 1281 .or. nproc == 1291 .or. nproc == 1301 .or. |
|
|
|
@ -1513,9 +1510,9 @@ c =========================== |
|
|
|
! we fake the "real emission" contributions uncertainty |
|
|
|
! for the prioritization system here |
|
|
|
! to boost the easier to compute contributions |
|
|
|
sdMod(nloReal,:) = sdMod(nloReal,:) / 1.5_dp |
|
|
|
sdMod(snloAbove,:) = sdMod(snloAbove,:) / 1.5_dp |
|
|
|
sdMod(nnloRealAbove,:) = sdMod(nnloRealAbove,:) / 1.5_dp |
|
|
|
sdMod(nloReal,:) = sdMod(nloReal,:) / 1.2_dp |
|
|
|
sdMod(snloAbove,:) = sdMod(snloAbove,:) / 1.2_dp |
|
|
|
sdMod(nnloRealAbove,:) = sdMod(nnloRealAbove,:) / 1.2_dp |
|
|
|
sdMod(nloResummed,:) = sdMod(nloResummed,:) / 15._dp |
|
|
|
|
|
|
|
nextLoc = maxloc(sdMod(:,:)) |
|
|
|
|