mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 8d59cc0a67
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '8d59cc0a67'
${ noResults }
SimulationCore2/Equipments/MudSystem/Deallocate_Normal_Circulati...

189 lines
7.2 KiB
Raw Blame History 

  1. subroutine DEALLOCATE_ARRAYS_NormalCirculation()    !  is called in module FluidFlowMain

  2.     USE MudSystemVARIABLES

  3.     implicit none

  4. 

  5. 

  6. if(allocated(Xstart_PipeSection)) deallocate(Xstart_PipeSection)  

  7. if(allocated(Xend_PipeSection)) deallocate(Xend_PipeSection)        

  8. if(allocated(PipeSection_VolumeCapacity)) deallocate(PipeSection_VolumeCapacity)        

  9. if(allocated(Area_PipeSectionFt)) deallocate(Area_PipeSectionFt)     

  10. if(allocated(OD_PipeSectionInch)) deallocate(OD_PipeSectionInch)        

  11. if(allocated(ID_PipeSectionInch)) deallocate(ID_PipeSectionInch)   

  12. if(allocated(Xstart_OpSection)) deallocate(Xstart_OpSection)  

  13. if(allocated(Xend_OpSection)) deallocate(Xend_OpSection)        

  14. if(allocated(Area_OpSectionFt)) deallocate(Area_OpSectionFt)        

  15. if(allocated(OD_OpSectionInch)) deallocate(OD_OpSectionInch)        

  16. if(allocated(ID_OpSectionInch)) deallocate(ID_OpSectionInch)        

  17. if(allocated(OpSection_VolumeCapacity)) deallocate(OpSection_VolumeCapacity)  

  18. if(allocated(GeoTypeOp)) deallocate(GeoTypeOp)        

  19. if(allocated(GeoType)) deallocate(GeoType)        

  20. 

  21. 

  22.             call Hz_MudDischarged_Volume%Empty()

  23.             call Hz_Mud_Backhead_X%Empty()

  24.             call Hz_Mud_Backhead_section%Empty()

  25.             call Hz_Mud_Forehead_X%Empty()

  26.             call Hz_Mud_Forehead_section%Empty()

  27.             call Hz_Density%Empty()

  28.             call Hz_RemainedVolume_in_LastSection%Empty()

  29.             call Hz_EmptyVolume_inBackheadLocation%Empty() 

  30.             call Hz_MudOrKick%Empty()                                        

  31.             

  32.                                 

  33.             call St_MudDischarged_Volume%Empty()

  34.             call St_Mud_Backhead_X%Empty()

  35.             call St_Mud_Backhead_section%Empty()

  36.             call St_Mud_Forehead_X%Empty()

  37.             call St_Mud_Forehead_section%Empty()

  38.             call St_Density%Empty()

  39.             call St_RemainedVolume_in_LastSection%Empty()

  40.             call St_EmptyVolume_inBackheadLocation%Empty()  

  41.             call St_MudOrKick%Empty()                                        

  42.             

  43.                 

  44.             call Ann_MudDischarged_Volume%Empty()

  45.             call Ann_Mud_Backhead_X%Empty()

  46.             call Ann_Mud_Backhead_section%Empty()

  47.             call Ann_Mud_Forehead_X%Empty()

  48.             call Ann_Mud_Forehead_section%Empty()

  49.             call Ann_Density%Empty()

  50.             call Ann_RemainedVolume_in_LastSection%Empty()

  51.             call Ann_EmptyVolume_inBackheadLocation%Empty()

  52.             call Ann_MudOrKick%Empty() 

  53.             call Ann_CuttingMud%Empty() 

  54.             

  55.             

  56.             call Op_MudDischarged_Volume%Empty()

  57.             call Op_Mud_Backhead_X%Empty()

  58.             call Op_Mud_Backhead_section%Empty()

  59.             call Op_Mud_Forehead_X%Empty()

  60.             call Op_Mud_Forehead_section%Empty()

  61.             call Op_Density%Empty()

  62.             call Op_RemainedVolume_in_LastSection%Empty()

  63.             call Op_EmptyVolume_inBackheadLocation%Empty()

  64.             call Op_MudOrKick%Empty()                                        

  65.             

  66. 

  67.             call ChokeLine_MudDischarged_Volume%Empty()

  68.             call ChokeLine_Mud_Backhead_X%Empty()

  69.             call ChokeLine_Mud_Backhead_section%Empty()

  70.             call ChokeLine_Mud_Forehead_X%Empty()

  71.             call ChokeLine_Mud_Forehead_section%Empty()

  72.             call ChokeLine_Density%Empty()

  73.             call ChokeLine_RemainedVolume_in_LastSection%Empty()

  74.             call ChokeLine_EmptyVolume_inBackheadLocation%Empty()

  75.             call ChokeLine_MudOrKick%Empty()  

  76.             

  77.             

  78.         call Xend_MudElement%Empty()

  79.         call Xstart_MudElement%Empty()

  80.         call TVDend_MudElement%Empty()

  81.         call TVDstart_MudElement%Empty()

  82.         call Density_MudElement%Empty()

  83.         call MudGeoType%Empty()

  84.         call PipeID_MudElement%Empty()

  85.         call PipeOD_MudElement%Empty()

  86.         call MudType_MudElement%Empty()            

  87.             

  88.         call Xend_OpMudElement%Empty()

  89.         call Xstart_OpMudElement%Empty()

  90.         call TVDend_OpMudElement%Empty()

  91.         call TVDstart_OPMudElement%Empty()

  92.         call Density_OpMudElement%Empty()

  93.         call PipeID_OpMudElement%Empty()

  94.         call PipeOD_OpMudElement%Empty()

  95.         call MudTypeOp_MudElement%Empty()            

  96.             

  97. 

  98.      

  99.     end subroutine

  100.     

  101.     

  102.     

  103. subroutine RemoveAnnulusMudArrays(ilocal)

  104.     USE MudSystemVARIABLES

  105.     implicit none

  106.     

  107.     INTEGER :: ilocal

  108.     

  109.     

  110.                     call Ann_MudDischarged_Volume%Remove (ilocal)

  111.                     call Ann_Mud_Backhead_X%Remove (ilocal)

  112.                     call Ann_Mud_Backhead_section%Remove (ilocal)

  113.                     call Ann_Mud_Forehead_X%Remove (ilocal)

  114.                     call Ann_Mud_Forehead_section%Remove (ilocal)

  115.                     call Ann_Density%Remove (ilocal)

  116.                     call Ann_RemainedVolume_in_LastSection%Remove (ilocal)

  117.                     call Ann_EmptyVolume_inBackheadLocation%Remove (ilocal)

  118.                     call Ann_MudOrKick%Remove (ilocal)

  119.                     call Ann_CuttingMud%Remove (ilocal)     

  120.     

  121.     

  122.     

  123.     end subroutine

  124.     

  125.     

  126. subroutine RemoveStringMudArrays(ilocal)

  127.     USE MudSystemVARIABLES

  128.     implicit none

  129.     

  130.     INTEGER :: ilocal

  131.     

  132.     

  133.                     call St_MudDischarged_Volume%Remove (ilocal)

  134.                     call St_Mud_Backhead_X%Remove (ilocal)

  135.                     call St_Mud_Backhead_section%Remove (ilocal)

  136.                     call St_Mud_Forehead_X%Remove (ilocal)

  137.                     call St_Mud_Forehead_section%Remove (ilocal)

  138.                     call St_Density%Remove (ilocal)

  139.                     call St_RemainedVolume_in_LastSection%Remove (ilocal)

  140.                     call St_EmptyVolume_inBackheadLocation%Remove (ilocal)

  141.                     call St_MudOrKick%Remove (ilocal)    

  142.     

  143.     

  144.     

  145.     end subroutine    

  146.     

  147.     

  148. subroutine RemoveOpMudArrays(ilocal)

  149.     USE MudSystemVARIABLES

  150.     implicit none

  151.     

  152.     INTEGER :: ilocal

  153.     

  154.     

  155.                     call Op_MudDischarged_Volume%Remove (ilocal)

  156.                     call Op_Mud_Backhead_X%Remove (ilocal)

  157.                     call Op_Mud_Backhead_section%Remove (ilocal)

  158.                     call Op_Mud_Forehead_X%Remove (ilocal)

  159.                     call Op_Mud_Forehead_section%Remove (ilocal)

  160.                     call Op_Density%Remove (ilocal)

  161.                     call Op_RemainedVolume_in_LastSection%Remove (ilocal)

  162.                     call Op_EmptyVolume_inBackheadLocation%Remove (ilocal)

  163.                     call Op_MudOrKick%Remove (ilocal)    

  164.     

  165.     

  166.     

  167.     end subroutine      

  168.     

  169. subroutine RemoveHzMudArrays(ilocal)

  170.     USE MudSystemVARIABLES

  171.     implicit none

  172.     

  173.     INTEGER :: ilocal

  174.     

  175.     

  176.                     call Hz_MudDischarged_Volume%Remove (ilocal)

  177.                     call Hz_Mud_Backhead_X%Remove (ilocal)

  178.                     call Hz_Mud_Backhead_section%Remove (ilocal)

  179.                     call Hz_Mud_Forehead_X%Remove (ilocal)

  180.                     call Hz_Mud_Forehead_section%Remove (ilocal)

  181.                     call Hz_Density%Remove (ilocal)

  182.                     call Hz_RemainedVolume_in_LastSection%Remove (ilocal)

  183.                     call Hz_EmptyVolume_inBackheadLocation%Remove (ilocal)

  184.                     call Hz_MudOrKick%Remove (ilocal)    

  185.     

  186.     

  187.     

  188.      end subroutine      

  189.