Skip to content
Snippets Groups Projects
Commit 3a892799 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 07/12/2021: BITREP fix: missing BR_LOG

parent c8945ee3
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/ice4_fast_rg.f90
+ 1
− 1
View file @ 3a892799
...@@ -652,7 +652,7 @@ ELSE ...@@ -652,7 +652,7 @@ ELSE
#ifndef MNH_BITREP #ifndef MNH_BITREP
PRG_TEND(:, IFREEZ1)=MIN(PRG_TEND(:, IFREEZ1), EXP(XALPI-XBETAI/PT(:)-XGAMI*ALOG(PT(:)))) ! min(ev, es_i(T)) PRG_TEND(:, IFREEZ1)=MIN(PRG_TEND(:, IFREEZ1), EXP(XALPI-XBETAI/PT(:)-XGAMI*ALOG(PT(:)))) ! min(ev, es_i(T))
#else #else
PRG_TEND(:, IFREEZ1)=MIN(PRG_TEND(:, IFREEZ1), BR_EXP(XALPI-XBETAI/PT(:)-XGAMI*ALOG(PT(:)))) ! min(ev, es_i(T)) PRG_TEND(:, IFREEZ1)=MIN(PRG_TEND(:, IFREEZ1), BR_EXP(XALPI-XBETAI/PT(:)-XGAMI*BR_LOG(PT(:)))) ! min(ev, es_i(T))
#endif #endif
END WHERE END WHERE
ENDIF ENDIF
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme