aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working changes to slip_plane code

Browse source
This commit is contained in:
Alex Selimov 2020-10-23 14:13:35 -04:00
parent 3e140df1a9
commit b5629b1563
5 changed files with 27 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/parameters.f90
View file

@ -3,7 +3,8 @@ module parameters
implicit none
!Default precision
integer, parameter :: dp= selected_real_kind(15,307)
integer, parameter :: dp= selected_real_kind(15,307), &
min_efillsize = 11
!Parameters for floating point tolerance
real(kind=dp), parameter :: lim_zero = epsilon(1.0_dp), &
lim_large = huge(1.0_dp), &