From c94aaad7e3f2da2983623aca9db59523d720f641 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Thu, 21 Jun 2018 09:55:07 +0000
Subject: [PATCH] Juan 21/06/2018:srtm_gas_optical_depth.F90, bug , move init
to 0.0 to begining
---
.../RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_gas_optical_depth.F90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_gas_optical_depth.F90 b/src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_gas_optical_depth.F90
index db5aaf138..693f0ea06 100644
--- a/src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_gas_optical_depth.F90
+++ b/src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_gas_optical_depth.F90
@@ -137,6 +137,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
ASSOCIATE(NFLEVG=>YRDIMV%NFLEVG)
IF (LHOOK) CALL DR_HOOK('SRTM_GAS_OPTICAL_DEPTH',0,ZHOOK_HANDLE)
+POD = 0.0
+PSSA = 0.0
+PINCSOL = 0.0
+
IB1=JPB1
IB2=JPB2
@@ -150,9 +154,6 @@ DO JL = KIDIA, KFDIA
ENDDO
ICOUNT=IC
IF(ICOUNT==0)THEN
- POD = 0.0
- PSSA = 0.0
- PINCSOL = 0.0
IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT_MCICA',1,ZHOOK_HANDLE)
RETURN
ENDIF
--
GitLab