!!***************************************************************************** !! !! program: Godunov-AMR !! !! Copyright (C) 2008 Grzegorz Kowal !! !!***************************************************************************** !! !! This file is part of Godunov-AMR. !! !! Godunov-AMR is free software; you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by !! the Free Software Foundation; either version 3 of the License, or !! (at your option) any later version. !! !! Godunov-AMR is distributed in the hope that it will be useful, !! but WITHOUT ANY WARRANTY; without even the implied warranty of !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the !! GNU General Public License for more details. !! !! You should have received a copy of the GNU General Public License !! along with this program. If not, see . !! !!***************************************************************************** !! ! program godunov ! modules ! use config, only : read_config use io , only : write_data use mesh , only : init_mesh, clear_mesh ! !---------------------------------------------------------------------- ! ! local variables ! ! !---------------------------------------------------------------------- ! ! print info message ! write (*,"(1x,78('-'))") write (*,"(1x,18('='),4x,a,4x,19('='))") ' Godunov-AMR algorithm ' write (*,"(1x,18('='),4x,a,4x,19('='))") 'Copyright (C) 2008 Grzegorz Kowal' write (*,"(1x,78('-'))") write (*,*) ! read configuration file ! call read_config ! setup adaptive mesh structure, allocate first block, initialize its mesh and variables ! ! initialize adaptive mesh and initial problem ! call init_mesh ! fill the first block with initial conditions, check refinement, refine if necessary by creating more blocks, this should create the initial structure of domain ! ! write down the initial state ! call write_data('r', 0, 0) ! deallocate and reset mesh ! call clear_mesh !---------------------------------------------------------------------- ! end program