1 |
guez |
30 |
!! |
2 |
|
|
!! @author Jacques Bellier, Marie-Alice Foujols, Jan Polcher |
3 |
|
|
!! @Version : $Revision: 2.0 $, $Date: 2004/04/05 14:47:47 $ |
4 |
|
|
!! |
5 |
|
|
!! $Header: /home/ioipsl/CVSROOT/IOIPSL/src/def.prec,v 2.0 2004/04/05 14:47:47 adm Exp $ |
6 |
|
|
!! |
7 |
|
|
MODULE defprec |
8 |
|
|
!--------------------------------------------------------------------- |
9 |
|
|
!! This module should be used by every modules |
10 |
|
|
!! to keep the right precision for every variable |
11 |
|
|
!! |
12 |
|
|
!! Set default precision for computation |
13 |
|
|
!--------------------------------------------------------------------- |
14 |
|
|
INTEGER,PARAMETER :: i_4=SELECTED_INT_KIND(9) |
15 |
|
|
INTEGER,PARAMETER :: i_8=SELECTED_INT_KIND(13) |
16 |
|
|
INTEGER,PARAMETER :: r_4=SELECTED_REAL_KIND(6,37) |
17 |
|
|
INTEGER,PARAMETER :: r_8=SELECTED_REAL_KIND(15,307) |
18 |
|
|
INTEGER,PARAMETER :: i_std=i_4, r_std=r_4 |
19 |
|
|
!----------------- |
20 |
|
|
END MODULE defprec |