gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ERROR: Remove module, since it is not used anymore.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2018-08-26 23:11:11 -03:00
parent 3af1d2d982
commit 87b66c1ec2
2 changed files with 1 additions and 149 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
build/makefile
View File

@ -88,7 +88,7 @@ endif
name = amun
files = algebra blocks boundaries constants coordinates domains driver \
equations error evolution gravity integrals interpolations io mesh \
equations evolution gravity integrals interpolations io mesh \
mpitools operators parameters problems random refinement schemes \
shapes sources timers user_problem

148
src/error.F90
View File

@ -1,148 +0,0 @@
!!******************************************************************************
!!
!! This file is part of the AMUN source code, a program to perform
!! Newtonian or relativistic magnetohydrodynamical simulations on uniform or
!! adaptive mesh.
!!
!! Copyright (C) 2008-2018 Grzegorz Kowal <grzegorz@amuncode.org>
!!
!! This program 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.
!!
!! This program 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 <http://www.gnu.org/licenses/>.
!!
!!******************************************************************************
!!
!! module: ERROR
!!
!! This module provides subroutines to print errors, warnings and
!! notifications in a unified format.
!!
!!******************************************************************************
!
module error
! module variables are not implicit by default
!
implicit none
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
contains
!
!===============================================================================
!
! subroutine PRINT_ERROR:
! ----------------------
!
! Subroutine prints an error message with the module/subroutine where
! the error occurred.
!
! Arguments:
!
! loc - string informing about the place where the error occurred
! (for example 'module name::subroutine name:[line]');
! msg - string of the actual error message;
!
!===============================================================================
!
subroutine print_error(loc, msg)
! local variables are not implicit by default
!
implicit none
! subroutine arguments
!
character(len=*), intent(in) :: loc, msg
!
!-------------------------------------------------------------------------------
!
write(*,*)
write(*,"('[ERROR in ', a, ']: ', a)") trim(loc), trim(msg)
!-------------------------------------------------------------------------------
!
end subroutine print_error
!
!===============================================================================
!
! subroutine PRINT_WARNING:
! ------------------------
!
! Subroutine prints a warning message with the module/subroutine where
! the warning occurred.
!
! Arguments:
!
! loc - string informing about the place where the warning occurred
! (for example 'module name::subroutine name:[line]');
! msg - string of the actual warning message;
!
!===============================================================================
!
subroutine print_warning(loc, msg)
! local variables are not implicit by default
!
implicit none
! subroutine arguments
!
character(len=*), intent(in) :: loc, msg
!
!-------------------------------------------------------------------------------
!
write(*,*)
write(*,"('[WARNING in ', a, ']: ', a)") trim(loc), trim(msg)
!-------------------------------------------------------------------------------
!
end subroutine print_warning
!
!===============================================================================
!
! subroutine PRINT_NOTIFICATION:
! -----------------------------
!
! Subroutine prints a notification message with the module/subroutine where
! the notification occurred.
!
! Arguments:
!
! loc - string informing about the place where the notification occurred
! (for example 'module name::subroutine name:[line]');
! msg - string of the actual notification message;
!
!===============================================================================
!
subroutine print_notification(loc, msg)
! local variables are not implicit by default
!
implicit none
! subroutine arguments
!
character(len=*), intent(in) :: loc, msg
!
!-------------------------------------------------------------------------------
!
write(*,*)
write(*,"('[NOTIFICATION in ', a, ']: ', a)") trim(loc), trim(msg)
!-------------------------------------------------------------------------------
!
end subroutine print_notification
!===============================================================================
!
end module