JHUAPL/kaiju
1
0
Fork 0
mirror of https://github.com/JHUAPL/kaiju.git synced 2026-01-09 18:57:53 -05:00
Code Issues Packages Projects Releases 1 Wiki Activity

Change the function name.

Browse Source
This commit is contained in:
Shanshan Bao
2025-05-28 23:50:53 -06:00
parent 2252b7585e
commit a8bb7e0f4c
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/raiju/losses/raijuLoss_eWM_BW.F90
View File

@@ -270,7 +270,7 @@ module raijuLoss_eWM_BW
if (this%wCHORUS(i,j) > TINY) then
!! Implement chorus tau calculation here
tauChorus = calcChorusTau(this, MLT, L, E, Kp)
tauChorus = CalcTau_Chorus(this, MLT, L, E, Kp)
else
tauChorus = HUGE
endif
@@ -375,7 +375,7 @@ module raijuLoss_eWM_BW
end associate
end subroutine eWM_BW_DoOutput
function calcChorusTau(this,MLTin,Lin,Ekin,Kpin) result(tau)
function CalcTau_Chorus(this,MLTin,Lin,Ekin,Kpin) result(tau)
! linearly interpolate tau from EWMTauInput to current MLT,L,Kp,Ek value
class(raiLoss_eWM_BW_T), intent(in) :: this
real(rp), intent(in) :: MLTin,Lin,Ekin,Kpin
@@ -501,6 +501,6 @@ module raijuLoss_eWM_BW
tau = 10.0**tau !convert back to tau in seconds
end associate
END FUNCTION calcChorusTau
END FUNCTION CalcTau_Chorus
end module raijuLoss_eWM_BW

2
src/raiju/raijuStarter.F90
View File

@@ -233,7 +233,7 @@ module raijustarter
!call iXML%Set_Val(Model%doSS , "losses/doSS" ,.true. )
call iXML%Set_Val(Model%doCC , "losses/doCC" ,.true. )
call iXML%Set_Val(Model%doCX , "losses/doCX" ,.true.)
call iXML%Set_Val(Model%doFLC , "losses/doFLC",.false.)
!call iXML%Set_Val(Model%doFLC , "losses/doFLC",.false.)
call iXML%Set_Val(Model%doEWM , "losses/doEWM",.true.)
call iXML%Set_Val(Model%ewmType , "losses/ewmType","SS")