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

First working version of model builder with several output file types and mode_create working

Browse source
This commit is contained in:
Alex 2019-11-27 15:10:28 -05:00
parent 8217e8b51c
commit ff3fc5e20a
6 changed files with 418 additions and 142 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/functions.f90
View file

@ -225,7 +225,7 @@ END FUNCTION StrDnCase
real(kind=dp), intent(in) :: A, B
logical :: is_equal
if((A>(B - 10.0_dp**-10)).and.(A < (B+10.0_dp**-10))) then
if((A>(B - 10.0_dp**(-10))).and.(A < (B+10.0_dp**(-10)))) then
is_equal = .true.
else
is_equal = .false.