Refactoring.

MilanSkocic · Jan 23, 2025 · 6e5c20f · 6e5c20f
1 parent dc93790
commit 6e5c20f
Showing 1 changed file with 24 additions and 1 deletion.
diff --git a/src/iapws_r797.f90 b/src/iapws_r797.f90
@@ -451,7 +451,26 @@ pure elemental function r1_w(p, T)result(res)
 
 !-------------------------------------------------------------------------------
 
-!-
+
+! Boundary between region 2 and 3
+!-------------------------------------------------------------------------------
+
+!-------------------------------------------------------------------------------
+
+
+
+! Region 2
+!-------------------------------------------------------------------------------
+
+!-------------------------------------------------------------------------------
+
+
+
+! Region 3
+!-------------------------------------------------------------------------------
+
+!-------------------------------------------------------------------------------
+
 
 
 ! Region 4: Saturation line
@@ -508,5 +527,9 @@ pure elemental function r4_Ts(ps)result(value)
 
 
 
+! Region 5
+!-------------------------------------------------------------------------------
+
+!-------------------------------------------------------------------------------
 
 end module