From c24703ea54b7474139c6eeadd3860430029cda94 Mon Sep 17 00:00:00 2001 From: Juan Escobar <escj@aero.obs-mip.fr> Date: Fri, 24 Mar 2017 16:57:06 +0100 Subject: [PATCH] Juan 24/03/2017 : modd_wp.F90 , auto detection of size of real for possible compilation in 4/8bytes --- src/SURFEX/modd_wp.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/SURFEX/modd_wp.F90 b/src/SURFEX/modd_wp.F90 index c05a99bbd..18cb57ba0 100644 --- a/src/SURFEX/modd_wp.F90 +++ b/src/SURFEX/modd_wp.F90 @@ -5,5 +5,7 @@ MODULE modd_wp !! necessary for compiling Gelato, but not included in LIB/GELATO for reasons relevant to !! Gelato build process - INTEGER, PUBLIC, PARAMETER :: wp = SELECTED_REAL_KIND(12,307) !: double precision (real 8) + !! Modi J.Escobar 24/03/2017 : auto detection of size of real for possible compilation in 4/8bytes + REAL , PRIVATE :: REAL_DEF_WP + INTEGER, PUBLIC, PARAMETER :: wp = KIND(REAL_DEF_WP) ! SELECTED_REAL_KIND(12,307) !: double precision (real 8) END MODULE modd_wp -- GitLab