File tree Expand file tree Collapse file tree 1 file changed +1
-20
lines changed Expand file tree Collapse file tree 1 file changed +1
-20
lines changed Original file line number Diff line number Diff line change 1
- ! ****************************************************************************************
2
- ! * :: Purpose :: *
3
- ! * Module defining compiler-independent numerical precision parameters *
4
- ! * *
5
- ! * :: Authors :: *
6
- ! * Andi Zuend (andreas.zuend@mcgill.ca) *
7
- ! * Dept. Atmospheric and Oceanic Sciences, McGill University *
8
- ! * *
9
- ! ****************************************************************************************
10
- module Mod_NumPrec
11
-
12
- implicit none
13
-
14
- ! 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.
15
- ! number_of_digits = desired minimum level of precision in terms of number of floating point decimal digits.
16
- integer ,parameter ,public :: wp = kind (1.0D0 ) ! set here for compatibility with AIOMFAC's real(8) settings;
17
- ! integer,parameter,private :: number_of_digits = 12
18
- ! integer,parameter,public :: wp = kind (1.0D0) !wp = selected_real_kind(number_of_digits)
19
-
20
- end module Mod_NumPrec
1
+ ! file no longer needed (replaced by Mod_kinds_param)
You can’t perform that action at this time.
0 commit comments