diff --git a/src/MNH/ice4_fast_rg.f90 b/src/MNH/ice4_fast_rg.f90 index 579954a5b0ced57b5d2c68d2fb73b831152c0f8c..0577bfbf45383a05f259ea0d378a199bc10aaa78 100644 --- a/src/MNH/ice4_fast_rg.f90 +++ b/src/MNH/ice4_fast_rg.f90 @@ -652,7 +652,7 @@ ELSE #ifndef MNH_BITREP PRG_TEND(:, IFREEZ1)=MIN(PRG_TEND(:, IFREEZ1), EXP(XALPI-XBETAI/PT(:)-XGAMI*ALOG(PT(:)))) ! min(ev, es_i(T)) #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 END WHERE ENDIF