From d3843e3d0ab8e51f7cc7bd418543c34874bf9940 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Mon, 23 Oct 2023 16:55:28 +0200
Subject: [PATCH] refactor(fortran): clean Fortran syntax in 'frun_CEMANEIGE'
Refs: #178
---
src/frun_CEMANEIGE.f90 | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/frun_CEMANEIGE.f90 b/src/frun_CEMANEIGE.f90
index 959dff2..69f8e8f 100644
--- a/src/frun_CEMANEIGE.f90
+++ b/src/frun_CEMANEIGE.f90
@@ -60,7 +60,7 @@
-
+
Implicit None
@@ -183,8 +183,7 @@
IF (dG.GT.0.) THEN
Gratio = MIN(Gratio+(Psol-Melt)/Gacc,1.d0) !Psol - Melt = dG
IF (Gratio.EQ.1.) Glocalmax = Gthreshold
- ENDIF
- IF (dG.LE.0.) THEN
+ ELSE
Gratio=MIN(G/Glocalmax,1.d0)
ENDIF
ELSE
--
GitLab