Skip to content
Snippets Groups Projects
Commit a86bd3d0 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 15/03/2023: bugfix: remove an #if 0 (commited by accident)

parent 48b31385
No related branches found
No related tags found
No related merge requests found
...@@ -1086,7 +1086,6 @@ IF (CCLOUD=="LIMA" .OR. CCLOUD=="ICE3" ) THEN ! only for ICE3 and LIMA ...@@ -1086,7 +1086,6 @@ IF (CCLOUD=="LIMA" .OR. CCLOUD=="ICE3" ) THEN ! only for ICE3 and LIMA
ZRTMIN(7)=XRTMIN_I(2) ! cloud water over land ZRTMIN(7)=XRTMIN_I(2) ! cloud water over land
ENDIF ENDIF
! compute cloud radar reflectivity from vertical profiles of temperature and mixing ratios ! compute cloud radar reflectivity from vertical profiles of temperature and mixing ratios
#if 0
DO JK=1,IKU DO JK=1,IKU
QMW=SQRT(QEPSW(ZTEMPZ(JK),XLIGHTSPEED/XLAM_CRAD)) QMW=SQRT(QEPSW(ZTEMPZ(JK),XLIGHTSPEED/XLAM_CRAD))
QMI=SQRT(QEPSI(ZTEMPZ(JK),XLIGHTSPEED/XLAM_CRAD)) QMI=SQRT(QEPSI(ZTEMPZ(JK),XLIGHTSPEED/XLAM_CRAD))
...@@ -1290,7 +1289,6 @@ IF (CCLOUD=="LIMA" .OR. CCLOUD=="ICE3" ) THEN ! only for ICE3 and LIMA ...@@ -1290,7 +1289,6 @@ IF (CCLOUD=="LIMA" .OR. CCLOUD=="ICE3" ) THEN ! only for ICE3 and LIMA
END IF END IF
END DO END DO
END DO END DO
#endif
! apply attenuation ! apply attenuation
ALLOCATE(ZZMZ(IKU)) ALLOCATE(ZZMZ(IKU))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment