From aca8eed301fd229ba75e17fa9d822b9bcce6e8d5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 13 Feb 2018 11:19:59 +0100
Subject: [PATCH] Philippe 13/02/2018: use generic intrinsics EXP instead of
DEXP
---
src/SURFEX/dgam.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/SURFEX/dgam.F90 b/src/SURFEX/dgam.F90
index 6b8d46b14..52addb006 100644
--- a/src/SURFEX/dgam.F90
+++ b/src/SURFEX/dgam.F90
@@ -497,7 +497,7 @@ IF ( PA<=ZALPHA ) THEN
!
! 110 deb
ZTEMP = DLGA(PA*1.)
- ZU = DEXP(ZTEMP) - (PX**PA)/PA
+ ZU = EXP(ZTEMP) - (PX**PA)/PA
! 110 end
!
ENDIF
@@ -548,7 +548,7 @@ IF ( PA<=ZALPHA ) THEN
!
ZT = EXP(PX) * PX**(-PA)
PG = ZT * PG
- PGSTAR = 1. - PA * PG * DEXP(-ZALGP1) / ZT
+ PGSTAR = 1. - PA * PG * EXP(-ZALGP1) / ZT
!
ELSEIF (PA==0.) THEN
!
--
GitLab