Skip to content
Snippets Groups Projects
Commit c94aaad7 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 21/06/2018:srtm_gas_optical_depth.F90, bug , move init to 0.0 to begining

parent 9eb52dd9
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/LIB/RAD/ecrad-1.0.1_mnh/ifsrrtm/srtm_gas_optical_depth.F90
+ 4
− 3
View file @ c94aaad7
...@@ -137,6 +137,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE ...@@ -137,6 +137,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
ASSOCIATE(NFLEVG=>YRDIMV%NFLEVG) ASSOCIATE(NFLEVG=>YRDIMV%NFLEVG)
IF (LHOOK) CALL DR_HOOK('SRTM_GAS_OPTICAL_DEPTH',0,ZHOOK_HANDLE) IF (LHOOK) CALL DR_HOOK('SRTM_GAS_OPTICAL_DEPTH',0,ZHOOK_HANDLE)
POD = 0.0
PSSA = 0.0
PINCSOL = 0.0
IB1=JPB1 IB1=JPB1
IB2=JPB2 IB2=JPB2
...@@ -150,9 +154,6 @@ DO JL = KIDIA, KFDIA ...@@ -150,9 +154,6 @@ DO JL = KIDIA, KFDIA
ENDDO ENDDO
ICOUNT=IC ICOUNT=IC
IF(ICOUNT==0)THEN IF(ICOUNT==0)THEN
POD = 0.0
PSSA = 0.0
PINCSOL = 0.0
IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT_MCICA',1,ZHOOK_HANDLE) IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT_MCICA',1,ZHOOK_HANDLE)
RETURN RETURN
ENDIF ENDIF
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme