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.
69 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: a57ac8edd6
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'a57ac8edd6'
${ noResults }
SimulationCore2/Equipments/MudSystem/Deallocate_Normal_Circulati...

191 lines
10 KiB
Raw Blame History 

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

  2.     USE MudSystemVARIABLES

  3. use SimulationVariables !@@@

  4.     implicit none

  5. 

  6. 

  7. if(allocated(data%State%MudSystem%Xstart_PipeSection)) deallocate(data%State%MudSystem%Xstart_PipeSection)  

  8. if(allocated(data%State%MudSystem%Xend_PipeSection)) deallocate(data%State%MudSystem%Xend_PipeSection)        

  9. if(allocated(data%State%MudSystem%PipeSection_VolumeCapacity)) deallocate(data%State%MudSystem%PipeSection_VolumeCapacity)        

  10. if(allocated(data%State%MudSystem%Area_PipeSectionFt)) deallocate(data%State%MudSystem%Area_PipeSectionFt)     

  11. if(allocated(data%State%MudSystem%OD_PipeSectionInch)) deallocate(data%State%MudSystem%OD_PipeSectionInch)        

  12. if(allocated(data%State%MudSystem%ID_PipeSectionInch)) deallocate(data%State%MudSystem%ID_PipeSectionInch)   

  13. if(allocated(data%State%MudSystem%Xstart_OpSection)) deallocate(data%State%MudSystem%Xstart_OpSection)  

  14. if(allocated(data%State%MudSystem%Xend_OpSection)) deallocate(data%State%MudSystem%Xend_OpSection)        

  15. if(allocated(data%State%MudSystem%Area_OpSectionFt)) deallocate(data%State%MudSystem%Area_OpSectionFt)        

  16. if(allocated(data%State%MudSystem%OD_OpSectionInch)) deallocate(data%State%MudSystem%OD_OpSectionInch)        

  17. if(allocated(data%State%MudSystem%ID_OpSectionInch)) deallocate(data%State%MudSystem%ID_OpSectionInch)        

  18. if(allocated(data%State%MudSystem%OpSection_VolumeCapacity)) deallocate(data%State%MudSystem%OpSection_VolumeCapacity)  

  19. if(allocated(data%State%MudSystem%GeoTypeOp)) deallocate(data%State%MudSystem%GeoTypeOp)        

  20. if(allocated(data%State%MudSystem%GeoType)) deallocate(data%State%MudSystem%GeoType)        

  21. 

  22. 

  23.             call data%State%MudSystem%Hz_MudDischarged_Volume%Empty()

  24.             call data%State%MudSystem%Hz_Mud_Backhead_X%Empty()

  25.             call data%State%MudSystem%Hz_Mud_Backhead_section%Empty()

  26.             call data%State%MudSystem%Hz_Mud_Forehead_X%Empty()

  27.             call data%State%MudSystem%Hz_Mud_Forehead_section%Empty()

  28.             call data%State%MudSystem%Hz_Density%Empty()

  29.             call data%State%MudSystem%Hz_RemainedVolume_in_LastSection%Empty()

  30.             call data%State%MudSystem%Hz_EmptyVolume_inBackheadLocation%Empty() 

  31.             call data%State%MudSystem%Hz_MudOrKick%Empty()                                        

  32.             

  33.                                 

  34.             call data%State%MudSystem%St_MudDischarged_Volume%Empty()

  35.             call data%State%MudSystem%St_Mud_Backhead_X%Empty()

  36.             call data%State%MudSystem%St_Mud_Backhead_section%Empty()

  37.             call data%State%MudSystem%St_Mud_Forehead_X%Empty()

  38.             call data%State%MudSystem%St_Mud_Forehead_section%Empty()

  39.             call data%State%MudSystem%St_Density%Empty()

  40.             call data%State%MudSystem%St_RemainedVolume_in_LastSection%Empty()

  41.             call data%State%MudSystem%St_EmptyVolume_inBackheadLocation%Empty()  

  42.             call data%State%MudSystem%St_MudOrKick%Empty()                                        

  43.             

  44.                 

  45.             call data%State%MudSystem%Ann_MudDischarged_Volume%Empty()

  46.             call data%State%MudSystem%Ann_Mud_Backhead_X%Empty()

  47.             call data%State%MudSystem%Ann_Mud_Backhead_section%Empty()

  48.             call data%State%MudSystem%Ann_Mud_Forehead_X%Empty()

  49.             call data%State%MudSystem%Ann_Mud_Forehead_section%Empty()

  50.             call data%State%MudSystem%Ann_Density%Empty()

  51.             call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Empty()

  52.             call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Empty()

  53.             call data%State%MudSystem%Ann_MudOrKick%Empty() 

  54.             call data%State%MudSystem%Ann_CuttingMud%Empty() 

  55.             

  56.             

  57.             call data%State%MudSystem%Op_MudDischarged_Volume%Empty()

  58.             call data%State%MudSystem%Op_Mud_Backhead_X%Empty()

  59.             call data%State%MudSystem%Op_Mud_Backhead_section%Empty()

  60.             call data%State%MudSystem%Op_Mud_Forehead_X%Empty()

  61.             call data%State%MudSystem%Op_Mud_Forehead_section%Empty()

  62.             call data%State%MudSystem%Op_Density%Empty()

  63.             call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Empty()

  64.             call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Empty()

  65.             call data%State%MudSystem%Op_MudOrKick%Empty()                                        

  66.             

  67. 

  68.             call data%State%MudSystem%ChokeLine_MudDischarged_Volume%Empty()

  69.             call data%State%MudSystem%ChokeLine_Mud_Backhead_X%Empty()

  70.             call data%State%MudSystem%ChokeLine_Mud_Backhead_section%Empty()

  71.             call data%State%MudSystem%ChokeLine_Mud_Forehead_X%Empty()

  72.             call data%State%MudSystem%ChokeLine_Mud_Forehead_section%Empty()

  73.             call data%State%MudSystem%ChokeLine_Density%Empty()

  74.             call data%State%MudSystem%ChokeLine_RemainedVolume_in_LastSection%Empty()

  75.             call data%State%MudSystem%ChokeLine_EmptyVolume_inBackheadLocation%Empty()

  76.             call data%State%MudSystem%ChokeLine_MudOrKick%Empty()  

  77.             

  78.             

  79.         call data%State%MudSystem%Xend_MudElement%Empty()

  80.         call data%State%MudSystem%Xstart_MudElement%Empty()

  81.         call data%State%MudSystem%TVDend_MudElement%Empty()

  82.         call data%State%MudSystem%TVDstart_MudElement%Empty()

  83.         call data%State%MudSystem%Density_MudElement%Empty()

  84.         call data%State%MudSystem%MudGeoType%Empty()

  85.         call data%State%MudSystem%PipeID_MudElement%Empty()

  86.         call data%State%MudSystem%PipeOD_MudElement%Empty()

  87.         call data%State%MudSystem%MudType_MudElement%Empty()            

  88.             

  89.         call data%State%MudSystem%Xend_OpMudElement%Empty()

  90.         call data%State%MudSystem%Xstart_OpMudElement%Empty()

  91.         call data%State%MudSystem%TVDend_OpMudElement%Empty()

  92.         call data%State%MudSystem%TVDstart_OpMudElement%Empty()

  93.         call data%State%MudSystem%Density_OpMudElement%Empty()

  94.         call data%State%MudSystem%PipeID_OpMudElement%Empty()

  95.         call data%State%MudSystem%PipeOD_OpMudElement%Empty()

  96.         call data%State%MudSystem%MudTypeOp_MudElement%Empty()            

  97.     end subroutine

  98.     

  99.     

  100.     

  101. subroutine RemoveAnnulusMudArrays(ilocal)

  102.     USE MudSystemVARIABLES

  103. use SimulationVariables !@@@

  104.     implicit none

  105.     

  106.     INTEGER :: ilocal

  107.     

  108.     

  109.                     call data%State%MudSystem%Ann_MudDischarged_Volume%Remove (ilocal)

  110.                     call data%State%MudSystem%Ann_Mud_Backhead_X%Remove (ilocal)

  111.                     call data%State%MudSystem%Ann_Mud_Backhead_section%Remove (ilocal)

  112.                     call data%State%MudSystem%Ann_Mud_Forehead_X%Remove (ilocal)

  113.                     call data%State%MudSystem%Ann_Mud_Forehead_section%Remove (ilocal)

  114.                     call data%State%MudSystem%Ann_Density%Remove (ilocal)

  115.                     call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%Remove (ilocal)

  116.                     call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%Remove (ilocal)

  117.                     call data%State%MudSystem%Ann_MudOrKick%Remove (ilocal)

  118.                     call data%State%MudSystem%Ann_CuttingMud%Remove (ilocal)     

  119.     

  120.     

  121.     

  122.     end subroutine

  123.     

  124.     

  125. subroutine RemoveStringMudArrays(ilocal)

  126.     USE MudSystemVARIABLES

  127. use SimulationVariables !@@@

  128.     implicit none

  129.     

  130.     INTEGER :: ilocal

  131.     

  132.     

  133.                     call data%State%MudSystem%St_MudDischarged_Volume%Remove (ilocal)

  134.                     call data%State%MudSystem%St_Mud_Backhead_X%Remove (ilocal)

  135.                     call data%State%MudSystem%St_Mud_Backhead_section%Remove (ilocal)

  136.                     call data%State%MudSystem%St_Mud_Forehead_X%Remove (ilocal)

  137.                     call data%State%MudSystem%St_Mud_Forehead_section%Remove (ilocal)

  138.                     call data%State%MudSystem%St_Density%Remove (ilocal)

  139.                     call data%State%MudSystem%St_RemainedVolume_in_LastSection%Remove (ilocal)

  140.                     call data%State%MudSystem%St_EmptyVolume_inBackheadLocation%Remove (ilocal)

  141.                     call data%State%MudSystem%St_MudOrKick%Remove (ilocal)    

  142.     

  143.     

  144.     

  145.     end subroutine    

  146.     

  147.     

  148. subroutine RemoveOpMudArrays(ilocal)

  149.     USE MudSystemVARIABLES

  150. use SimulationVariables !@@@

  151.     implicit none

  152.     

  153.     INTEGER :: ilocal

  154.     

  155.     

  156.                     call data%State%MudSystem%Op_MudDischarged_Volume%Remove (ilocal)

  157.                     call data%State%MudSystem%Op_Mud_Backhead_X%Remove (ilocal)

  158.                     call data%State%MudSystem%Op_Mud_Backhead_section%Remove (ilocal)

  159.                     call data%State%MudSystem%Op_Mud_Forehead_X%Remove (ilocal)

  160.                     call data%State%MudSystem%Op_Mud_Forehead_section%Remove (ilocal)

  161.                     call data%State%MudSystem%Op_Density%Remove (ilocal)

  162.                     call data%State%MudSystem%Op_RemainedVolume_in_LastSection%Remove (ilocal)

  163.                     call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (ilocal)

  164.                     call data%State%MudSystem%Op_MudOrKick%Remove (ilocal)    

  165.     

  166.     

  167.     

  168.     end subroutine      

  169.     

  170. subroutine RemoveHzMudArrays(ilocal)

  171.     USE MudSystemVARIABLES

  172. use SimulationVariables !@@@

  173.     implicit none

  174.     

  175.     INTEGER :: ilocal

  176.     

  177.     

  178.                     call data%State%MudSystem%Hz_MudDischarged_Volume%Remove (ilocal)

  179.                     call data%State%MudSystem%Hz_Mud_Backhead_X%Remove (ilocal)

  180.                     call data%State%MudSystem%Hz_Mud_Backhead_section%Remove (ilocal)

  181.                     call data%State%MudSystem%Hz_Mud_Forehead_X%Remove (ilocal)

  182.                     call data%State%MudSystem%Hz_Mud_Forehead_section%Remove (ilocal)

  183.                     call data%State%MudSystem%Hz_Density%Remove (ilocal)

  184.                     call data%State%MudSystem%Hz_RemainedVolume_in_LastSection%Remove (ilocal)

  185.                     call data%State%MudSystem%Hz_EmptyVolume_inBackheadLocation%Remove (ilocal)

  186.                     call data%State%MudSystem%Hz_MudOrKick%Remove (ilocal)    

  187.     

  188.     

  189.     

  190.      end subroutine      

  191.