chanbed -99.9 to -9999.0 in output array initialization

fmidev · Aug 15, 2024 · 825b067 · 825b067
1 parent 2984e1d
commit 825b067
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/Initialization.f90 b/src/Initialization.f90
@@ -402,12 +402,12 @@ Subroutine initOutputArrays(SimLen, modelOutput)
 
    integer ::i
    Do i = 1, SimLen
-      modelOutput%SnowOut(i) = -99.9
-      modelOutput%WaterOut(i) = -99.9
-      modelOutput%IceOut(i) = -99.9
-      modelOutput%Ice2Out(i) = -99.9
-      modelOutput%DepositOut(i) = -99.9
-      modelOutput%TsurfOut(i) = -99.9
+      modelOutput%SnowOut(i) = -9999.0
+      modelOutput%WaterOut(i) = -9999.0
+      modelOutput%IceOut(i) = -9999.0
+      modelOutput%Ice2Out(i) = -9999.0
+      modelOutput%DepositOut(i) = -9999.0
+      modelOutput%TsurfOut(i) = -9999.0
    end do
 end Subroutine