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 db5aaf1383b545902a87aeae434f979d9157b279..693f0ea061c906961b09fd259623803621febb0c 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