refactor(fortran): clean Fortran syntax in 'frun_CEMANEIGE'

Refs: #178

refactor(fortran): clean Fortran syntax in 'frun_CEMANEIGE'
Refs: #178
d3843e3d · Delaigue Olivier · 4883ebcd · d3843e3d
Commit d3843e3d authored 1 year ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 3 deletions
+2 -3
--- 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