UPP (develop)
Loading...
Searching...
No Matches
machine.f
Go to the documentation of this file.
1
3 MODULE machine_post
4
5 IMPLICIT NONE
6 SAVE
7
8 integer kind_io4 &
9 ,kind_io8 &
10 ,kind_phys &
11 ,kind_rad &
12 ,kint_mpi
13
14 parameter(kind_rad = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
15 parameter(kind_phys = selected_real_kind(13,60)) ! the '60' maps to 64-bit real
16 parameter(kind_io4 = 4)
17 parameter(kind_io8 = 8)
18 parameter(kint_mpi = 4)
19
20 END MODULE machine_post