Simulating Pressure Transient(FORTRAN 95)

  • Thread starter Thread starter Tom0395
  • Start date Start date
  • Tags Tags
    Pressure
AI Thread Summary
The discussion focuses on simulating pressure surges in pipelines using FORTRAN 95, specifically addressing issues with two scenarios: instantaneous valve closure and gradual valve closure. The user, Tom, reports that while the first program runs without issues, the second program shows an incorrect downstream pressure trend, which should reflect a mirrored pattern along the x-axis. Tom seeks assistance in identifying the problem with the second code and is open to suggestions for improving the post to attract more responses. The conversation emphasizes the need for clarity in coding and troubleshooting simulation results.
Tom0395
Messages
1
Reaction score
0
Hi,

I am currently working on a project to simulate pressure surges in pipelines, and I was hoping if someone could point out what is wrong with the second code.

There are 2 scenarios that I am focusing on right now, one is where the valve closes instantaneously and the closure function is a step. Please refer to P1.jpg which is attached, and ignore the valve on the right. The second is for gradual valve closure with the same scenario as P1.jpg, and the closure function is linear as seen in C1.jpg. The codes for both programs are given in Program1.txt and Program3.txt respectively.

For Program 1, I am not having any problems, but for Program 3, the upstream pressure is okay while downstream pressure trend is a straight line when it should have been something close to a mirror image along x axis.

Really appreciate your help here. Thanks.

Regards,
Tom

PS. I was wondering if I should post this somewhere instead. If i should please let me know! Thank you.\
 

Attachments

  • P1.jpg
    P1.jpg
    6.2 KB · Views: 480
  • c1.jpg
    c1.jpg
    25.3 KB · Views: 470
  • Program1.txt
    Program1.txt
    5.6 KB · Views: 486
  • Program3.txt
    Program3.txt
    8.4 KB · Views: 488
Engineering news on Phys.org
Thanks for the post! Sorry you aren't generating responses at the moment. Do you have any further information, come to any new conclusions or is it possible to reword the post?
 
How did you find PF?: Via Google search Hi, I have a vessel I 3D printed to investigate single bubble rise. The vessel has a 4 mm gap separated by acrylic panels. This is essentially my viewing chamber where I can record the bubble motion. The vessel is open to atmosphere. The bubble generation mechanism is composed of a syringe pump and glass capillary tube (Internal Diameter of 0.45 mm). I connect a 1/4” air line hose from the syringe to the capillary The bubble is formed at the tip...
Thread 'Physics of Stretch: What pressure does a band apply on a cylinder?'
Scenario 1 (figure 1) A continuous loop of elastic material is stretched around two metal bars. The top bar is attached to a load cell that reads force. The lower bar can be moved downwards to stretch the elastic material. The lower bar is moved downwards until the two bars are 1190mm apart, stretching the elastic material. The bars are 5mm thick, so the total internal loop length is 1200mm (1190mm + 5mm + 5mm). At this level of stretch, the load cell reads 45N tensile force. Key numbers...
I'd like to create a thread with links to 3-D Printer resources, including printers and software package suggestions. My motivations are selfish, as I have a 3-D printed project that I'm working on, and I'd like to buy a simple printer and use low cost software to make the first prototype. There are some previous threads about 3-D printing like this: https://www.physicsforums.com/threads/are-3d-printers-easy-to-use-yet.917489/ but none that address the overall topic (unless I've missed...
Back
Top