Skip to content

Commit

Permalink
Update Mod_NumPrec.f90
Browse files Browse the repository at this point in the history
file no longer needed
  • Loading branch information
andizuend committed Apr 23, 2024
1 parent 21f3cc0 commit 2c25b9e
Showing 1 changed file with 1 addition and 20 deletions.
21 changes: 1 addition & 20 deletions FortranCode/Mod_NumPrec.f90
Original file line number Diff line number Diff line change
@@ -1,20 +1 @@
!****************************************************************************************
!* :: Purpose :: *
!* Module defining compiler-independent numerical precision parameters *
!* *
!* :: Authors :: *
!* Andi Zuend ([email protected]) *
!* Dept. Atmospheric and Oceanic Sciences, McGill University *
!* *
!****************************************************************************************
module Mod_NumPrec

implicit none

!define a working precision (wp) level to be used with floating point (real) variables, e.g. 1.0 should be stated as 1.0_wp.
!number_of_digits = desired minimum level of precision in terms of number of floating point decimal digits.
integer,parameter,public :: wp = kind(1.0D0) !set here for compatibility with AIOMFAC's real(8) settings;
!integer,parameter,private :: number_of_digits = 12
!integer,parameter,public :: wp = kind (1.0D0) !wp = selected_real_kind(number_of_digits)

end module Mod_NumPrec
!file no longer needed (replaced by Mod_kinds_param)

0 comments on commit 2c25b9e

Please sign in to comment.