diff --git a/src/collision_mod.F90 b/src/collision_mod.F90 index 2bdeb5cefe26c327a4dd2b8a4ad459f614ef497e..85db678e0fabed0e75c3cc5fff6ee115d075ba00 100644 --- a/src/collision_mod.F90 +++ b/src/collision_mod.F90 @@ -111,8 +111,8 @@ CONTAINS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ENDIF - ! Multiply by electron-ion collision coefficient - TColl_ = nu_e * TColl_ + ! Multiply by electron-electron collision coefficient + TColl_ = nu_ee * TColl_ END SUBROUTINE DoughertyGK_e diff --git a/src/model_mod.F90 b/src/model_mod.F90 index 3b77badcdb76b4fcc9d976771d3858645530afbe..4c9e298c4c25c2db714e90114919ad664e587a13 100644 --- a/src/model_mod.F90 +++ b/src/model_mod.F90 @@ -76,6 +76,14 @@ CONTAINS nu_i = nu ! ion-ion collision frequ. nu_ee = nu_e ! e-e coll. frequ. nu_ie = nu_i ! i-e coll. frequ. + + + ! Old normalization (MOLI Jorge/Frei) + ! nu_e = 0.532_dp*nu ! electron-ion collision frequency (where already multiplied by 0.532) + ! nu_i = 0.532_dp*nu*sigma_e*tau_e**(-3._dp/2._dp)/SQRT2 ! ion-ion collision frequ. + ! nu_ee = nu_e/SQRT2 ! e-e coll. frequ. + ! nu_ie = 0.532_dp*nu*sigma_e**2 ! i-e coll. frequ. + END SUBROUTINE model_readinputs