mud properties from json are added

CSharp/BasicInputs/MudProperties.f90

@@ -47,6 +47,70 @@ module MudPropertiesModule
         call json%add(parent,p)
     end subroutine
 
+    subroutine MudPropertiesFromJson(parent)
+        use json_module,IK =>json_ik
+        type(json_value),pointer :: parent
+        type(json_core) :: json
+        type(json_value),pointer :: p,pitems,pitem,pval,pbit
+
+        call json%get(parent,'Mud',p)
+
+        call json%get(p,"ActiveMudType",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveMudType)
+        call json%get(p,"ActiveRheologyModel",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveRheologyModel)
+        call json%get(p,"ActiveMudVolume",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveMudVolume)
+        call json%get(p,"ActiveMudVolumeGal",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveMudVolumeGal)
+        call json%get(p,"ActiveDensity",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveDensity)
+        call json%get(p,"ActivePlasticViscosity",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActivePlasticViscosity)
+        call json%get(p,"ActiveYieldPoint",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveYieldPoint)
+        call json%get(p,"ActiveThetaThreeHundred",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveThetaThreeHundred)
+        call json%get(p,"ActiveThetaSixHundred",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveThetaSixHundred)
+        call json%get(p,"ReserveMudType",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReserveMudType)
+        call json%get(p,"ReserveMudVolume",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReserveMudVolume)
+        call json%get(p,"ReserveMudVolumeGal",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReserveMudVolumeGal)
+        call json%get(p,"ReserveDensity",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReserveDensity)
+        call json%get(p,"ReservePlasticViscosity",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReservePlasticViscosity)
+        call json%get(p,"ReserveYieldPoint",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReserveYieldPoint)
+        call json%get(p,"ReserveThetaThreeHundred",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReserveThetaThreeHundred)
+        call json%get(p,"ReserveThetaSixHundred",pitem)
+		call json%get(pitem,data%Configuration%Mud%ReserveThetaSixHundred)
+        call json%get(p,"ActiveTotalTankCapacity",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveTotalTankCapacity)
+        call json%get(p,"ActiveTotalTankCapacityGal",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveTotalTankCapacityGal)
+        call json%get(p,"ActiveSettledContents",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveSettledContents)
+        call json%get(p,"ActiveSettledContentsGal",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveSettledContentsGal)
+        call json%get(p,"ActiveTotalContents",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveTotalContents)
+        call json%get(p,"ActiveTotalContentsGal",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveTotalContentsGal)
+        call json%get(p,"ActiveAutoDensity",pitem)
+		call json%get(pitem,data%Configuration%Mud%ActiveAutoDensity)
+        call json%get(p,"InitialTripTankMudVolume",pitem)
+		call json%get(pitem,data%Configuration%Mud%InitialTripTankMudVolume)
+        call json%get(p,"InitialTripTankMudVolumeGal",pitem)
+		call json%get(pitem,data%Configuration%Mud%InitialTripTankMudVolumeGal)
+        call json%get(p,"PedalFlowMeter",pitem)
+		call json%get(pitem,data%Configuration%Mud%PedalFlowMeter)
+			
+    end subroutine
     
     subroutine Set_ActiveMudVolume_StudentStation(v)
         implicit none