foaming_globals.f90

Go to the documentation of this file.

module foaming_globals_m
  implicit none
  logical :: &
    firstrun,&       !< running for the first time
    printout = .true.  ! print intermediate results during integration in bblgr
  integer :: bub_inx
  real(8) :: tstart,           & !< starting time of the direct simulations
             tend,             & !< end time of the direct simulations
             bub_pres,         & !< bubble pressure
             surface_tension
  real(8), dimension(:,:), allocatable :: &
    bub_rad,& !< first column - time; rest radius of each bubble every timestep
    etat,& !< first column - time, second column viscosity for each timestep
    port,& !< first column - time, second column porosity for each timestep
    init_bub_rad
end module foaming_globals_m