| 1 |
!! |
| 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 |
Parent Directory
| 
Revision Log