Skip to content
Snippets Groups Projects
Commit a2fd6cdc authored by Gaelle DELAUTIER's avatar Gaelle DELAUTIER
Browse files

G.Delautier 19/10/2017 : bug call ini_radar

parent a9fa47a9
Branches
Tags
No related merge requests found
...@@ -2999,7 +2999,7 @@ END IF ...@@ -2999,7 +2999,7 @@ END IF
! !
IF(LRADAR .AND. LUSERR) THEN IF(LRADAR .AND. LUSERR) THEN
! CASE PREP_REAL_CASE after arome ! CASE PREP_REAL_CASE after arome
IF (CCLOUD=='NONE') THEN IF (CCLOUD=='NONE' .OR. CCLOUD='KESS') THEN
DEALLOCATE(XCIT) DEALLOCATE(XCIT)
ALLOCATE(XCIT(IIU,IJU,IKU)) ALLOCATE(XCIT(IIU,IJU,IKU))
XCIT(:,:,:)=800. XCIT(:,:,:)=800.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment