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
machine.f
Generated by
1.9.8