Commit 36aa7cca authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.4.3.45 CLEAN: 3 variables initialised even they are unused when IsHyst is...

v1.4.3.45 CLEAN: 3 variables initialised even they are unused when IsHyst is .FALSE. in frun_CemaNeige Fortran code #15
parent 06770e8e
......@@ -159,7 +159,7 @@
IF (IsHystBool) THEN
IF (Potmelt.GT.0.) THEN
IF (G.LT.Glocalmax.AND.Gratio.EQ.1.) Glocalmax=G !Update in case of potential melt and G lower than Gseuil
IF (G.LT.Glocalmax.AND.Gratio.EQ.1.) Glocalmax=G ! Update in case of potential melt and G lower than Gseuil
Gratio=MIN(G/Glocalmax,1.d0)
ENDIF
ELSE
......@@ -176,7 +176,7 @@
! Update of snow pack volume
G=G-Melt
IF (IsHystBool) THEN
dG=G-Ginit !Melt in case of negative dG, accumulation otherwise
dG=G-Ginit ! Melt in case of negative dG, accumulation otherwise
IF (dG.GT.0.) THEN
......
Markdown is supported
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