plume_model.f90

Go to the documentation of this file.

!********************************************************************************
!*********************************************************************



PROGRAM plume_model
  
  USE inpout, ONLY: initialize , read_inp
  
  USE inpout, ONLY: open_file_units , close_file_units

  USE rise, ONLY: plumerise

  USE solver_module, ONLY: allocate_matrix
  
  IMPLICIT NONE
 
  REAL*8 :: t1 , t2
 
  CALL cpu_time(t1)

  !
  !***  Initialize the input variables
  !
  CALL initialize
  !
  !***  Read from file the input parameters
  !
  CALL read_inp
  !
  !***  Open the units for output
  !
  CALL open_file_units
  !
  !***  Allocate varaibles for the colum model
  !
  CALL allocate_matrix
  
  !***  Solve the plume model
  CALL plumerise

  CALL close_file_units
  
  CALL cpu_time(t2)

  WRITE(*,*) 'Time taken by the code was',t2-t1,'seconds'

END PROGRAM plume_model