Skip to content
Snippets Groups Projects
Commit ba4b24de authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 26/09/2024: bugfix PRCACCR(:) = PHLC_HRC(JL)... for CPU/GPU (already...

Quentin 26/09/2024: bugfix PRCACCR(:) = PHLC_HRC(JL)... for CPU/GPU (already removed in 5.7). This bf changes results
parent f47a7efb
No related branches found
No related tags found
No related merge requests found
......@@ -151,7 +151,7 @@ ELSEIF (HSUBG_RC_RR_ACCR=='PRFR') THEN
&*PHLC_HCF(JL)
#else
!HCF*accretion(HRC/HCF) with simplification
PRCACCR(:) = ICEP%XFCACCR * PHLC_HRC(JL) &
PRCACCR(JL) = ICEP%XFCACCR * PHLC_HRC(JL) &
&*PLBDAR_RF(JL)**ICEP%XEXCACCR &
&*PRHODREF(JL)**(-ICED%XCEXVT)
#endif
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment