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

186 lines
8.4 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(MudSystem%Xstart_PipeSection)) deallocate(MudSystem%Xstart_PipeSection)  

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

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

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

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

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

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

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

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

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

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

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

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

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

  20. 

  21. 

  22.             call MudSystem%Hz_MudDischarged_Volume%Empty()

  23.             call MudSystem%Hz_Mud_Backhead_X%Empty()

  24.             call MudSystem%Hz_Mud_Backhead_section%Empty()

  25.             call MudSystem%Hz_Mud_Forehead_X%Empty()

  26.             call MudSystem%Hz_Mud_Forehead_section%Empty()

  27.             call MudSystem%Hz_Density%Empty()

  28.             call MudSystem%Hz_RemainedVolume_in_LastSection%Empty()

  29.             call MudSystem%Hz_EmptyVolume_inBackheadLocation%Empty() 

  30.             call MudSystem%Hz_MudOrKick%Empty()                                        

  31.             

  32.                                 

  33.             call MudSystem%St_MudDischarged_Volume%Empty()

  34.             call MudSystem%St_Mud_Backhead_X%Empty()

  35.             call MudSystem%St_Mud_Backhead_section%Empty()

  36.             call MudSystem%St_Mud_Forehead_X%Empty()

  37.             call MudSystem%St_Mud_Forehead_section%Empty()

  38.             call MudSystem%St_Density%Empty()

  39.             call MudSystem%St_RemainedVolume_in_LastSection%Empty()

  40.             call MudSystem%St_EmptyVolume_inBackheadLocation%Empty()  

  41.             call MudSystem%St_MudOrKick%Empty()                                        

  42.             

  43.                 

  44.             call MudSystem%Ann_MudDischarged_Volume%Empty()

  45.             call MudSystem%Ann_Mud_Backhead_X%Empty()

  46.             call MudSystem%Ann_Mud_Backhead_section%Empty()

  47.             call MudSystem%Ann_Mud_Forehead_X%Empty()

  48.             call MudSystem%Ann_Mud_Forehead_section%Empty()

  49.             call MudSystem%Ann_Density%Empty()

  50.             call MudSystem%Ann_RemainedVolume_in_LastSection%Empty()

  51.             call MudSystem%Ann_EmptyVolume_inBackheadLocation%Empty()

  52.             call MudSystem%Ann_MudOrKick%Empty() 

  53.             call MudSystem%Ann_CuttingMud%Empty() 

  54.             

  55.             

  56.             call MudSystem%Op_MudDischarged_Volume%Empty()

  57.             call MudSystem%Op_Mud_Backhead_X%Empty()

  58.             call MudSystem%Op_Mud_Backhead_section%Empty()

  59.             call MudSystem%Op_Mud_Forehead_X%Empty()

  60.             call MudSystem%Op_Mud_Forehead_section%Empty()

  61.             call MudSystem%Op_Density%Empty()

  62.             call MudSystem%Op_RemainedVolume_in_LastSection%Empty()

  63.             call MudSystem%Op_EmptyVolume_inBackheadLocation%Empty()

  64.             call MudSystem%Op_MudOrKick%Empty()                                        

  65.             

  66. 

  67.             call MudSystem%ChokeLine_MudDischarged_Volume%Empty()

  68.             call MudSystem%ChokeLine_Mud_Backhead_X%Empty()

  69.             call MudSystem%ChokeLine_Mud_Backhead_section%Empty()

  70.             call MudSystem%ChokeLine_Mud_Forehead_X%Empty()

  71.             call MudSystem%ChokeLine_Mud_Forehead_section%Empty()

  72.             call MudSystem%ChokeLine_Density%Empty()

  73.             call MudSystem%ChokeLine_RemainedVolume_in_LastSection%Empty()

  74.             call MudSystem%ChokeLine_EmptyVolume_inBackheadLocation%Empty()

  75.             call MudSystem%ChokeLine_MudOrKick%Empty()  

  76.             

  77.             

  78.         call MudSystem%Xend_MudElement%Empty()

  79.         call MudSystem%Xstart_MudElement%Empty()

  80.         call MudSystem%TVDend_MudElement%Empty()

  81.         call MudSystem%TVDstart_MudElement%Empty()

  82.         call MudSystem%Density_MudElement%Empty()

  83.         call MudSystem%MudGeoType%Empty()

  84.         call MudSystem%PipeID_MudElement%Empty()

  85.         call MudSystem%PipeOD_MudElement%Empty()

  86.         call MudSystem%MudType_MudElement%Empty()            

  87.             

  88.         call MudSystem%Xend_OpMudElement%Empty()

  89.         call MudSystem%Xstart_OpMudElement%Empty()

  90.         call MudSystem%TVDend_OpMudElement%Empty()

  91.         call MudSystem%TVDstart_OpMudElement%Empty()

  92.         call MudSystem%Density_OpMudElement%Empty()

  93.         call MudSystem%PipeID_OpMudElement%Empty()

  94.         call MudSystem%PipeOD_OpMudElement%Empty()

  95.         call MudSystem%MudTypeOp_MudElement%Empty()            

  96.     end subroutine

  97.     

  98.     

  99.     

  100. subroutine RemoveAnnulusMudArrays(ilocal)

  101.     USE MudSystemVARIABLES

  102.     implicit none

  103.     

  104.     INTEGER :: ilocal

  105.     

  106.     

  107.                     call MudSystem%Ann_MudDischarged_Volume%Remove (ilocal)

  108.                     call MudSystem%Ann_Mud_Backhead_X%Remove (ilocal)

  109.                     call MudSystem%Ann_Mud_Backhead_section%Remove (ilocal)

  110.                     call MudSystem%Ann_Mud_Forehead_X%Remove (ilocal)

  111.                     call MudSystem%Ann_Mud_Forehead_section%Remove (ilocal)

  112.                     call MudSystem%Ann_Density%Remove (ilocal)

  113.                     call MudSystem%Ann_RemainedVolume_in_LastSection%Remove (ilocal)

  114.                     call MudSystem%Ann_EmptyVolume_inBackheadLocation%Remove (ilocal)

  115.                     call MudSystem%Ann_MudOrKick%Remove (ilocal)

  116.                     call MudSystem%Ann_CuttingMud%Remove (ilocal)     

  117.     

  118.     

  119.     

  120.     end subroutine

  121.     

  122.     

  123. subroutine RemoveStringMudArrays(ilocal)

  124.     USE MudSystemVARIABLES

  125.     implicit none

  126.     

  127.     INTEGER :: ilocal

  128.     

  129.     

  130.                     call MudSystem%St_MudDischarged_Volume%Remove (ilocal)

  131.                     call MudSystem%St_Mud_Backhead_X%Remove (ilocal)

  132.                     call MudSystem%St_Mud_Backhead_section%Remove (ilocal)

  133.                     call MudSystem%St_Mud_Forehead_X%Remove (ilocal)

  134.                     call MudSystem%St_Mud_Forehead_section%Remove (ilocal)

  135.                     call MudSystem%St_Density%Remove (ilocal)

  136.                     call MudSystem%St_RemainedVolume_in_LastSection%Remove (ilocal)

  137.                     call MudSystem%St_EmptyVolume_inBackheadLocation%Remove (ilocal)

  138.                     call MudSystem%St_MudOrKick%Remove (ilocal)    

  139.     

  140.     

  141.     

  142.     end subroutine    

  143.     

  144.     

  145. subroutine RemoveOpMudArrays(ilocal)

  146.     USE MudSystemVARIABLES

  147.     implicit none

  148.     

  149.     INTEGER :: ilocal

  150.     

  151.     

  152.                     call MudSystem%Op_MudDischarged_Volume%Remove (ilocal)

  153.                     call MudSystem%Op_Mud_Backhead_X%Remove (ilocal)

  154.                     call MudSystem%Op_Mud_Backhead_section%Remove (ilocal)

  155.                     call MudSystem%Op_Mud_Forehead_X%Remove (ilocal)

  156.                     call MudSystem%Op_Mud_Forehead_section%Remove (ilocal)

  157.                     call MudSystem%Op_Density%Remove (ilocal)

  158.                     call MudSystem%Op_RemainedVolume_in_LastSection%Remove (ilocal)

  159.                     call MudSystem%Op_EmptyVolume_inBackheadLocation%Remove (ilocal)

  160.                     call MudSystem%Op_MudOrKick%Remove (ilocal)    

  161.     

  162.     

  163.     

  164.     end subroutine      

  165.     

  166. subroutine RemoveHzMudArrays(ilocal)

  167.     USE MudSystemVARIABLES

  168.     implicit none

  169.     

  170.     INTEGER :: ilocal

  171.     

  172.     

  173.                     call MudSystem%Hz_MudDischarged_Volume%Remove (ilocal)

  174.                     call MudSystem%Hz_Mud_Backhead_X%Remove (ilocal)

  175.                     call MudSystem%Hz_Mud_Backhead_section%Remove (ilocal)

  176.                     call MudSystem%Hz_Mud_Forehead_X%Remove (ilocal)

  177.                     call MudSystem%Hz_Mud_Forehead_section%Remove (ilocal)

  178.                     call MudSystem%Hz_Density%Remove (ilocal)

  179.                     call MudSystem%Hz_RemainedVolume_in_LastSection%Remove (ilocal)

  180.                     call MudSystem%Hz_EmptyVolume_inBackheadLocation%Remove (ilocal)

  181.                     call MudSystem%Hz_MudOrKick%Remove (ilocal)    

  182.     

  183.     

  184.     

  185.      end subroutine      

  186.