Skip to content
Snippets Groups Projects
Commit b47db8d1 authored by RIETTE Sébastien's avatar RIETTE Sébastien
Browse files

S. Riette 16 Jun 2023: add CMICRO='NONE' option in suparar

parent 4ce004d1
No related branches found
No related tags found
No related merge requests found
......@@ -230,7 +230,7 @@ YDPARAR%CTURB=CTURB
IF (.NOT.LMSE.AND..NOT.LRAYFM.AND..NOT.LRAYFM15) THEN
NSWB_MNH=1
ENDIF
IF ( CMICRO /= 'ICE3' .AND. CMICRO /= 'ICE4' .AND. CMICRO /= 'LIMA') THEN
IF ( CMICRO /= 'ICE3' .AND. CMICRO /= 'ICE4' .AND. CMICRO /= 'LIMA' .AND. CMICRO /= 'NONE') THEN
CALL ABOR1("AROME Microphysics (CMICRO) must be ICE3, ICE4 or LIMA")
ENDIF
IF ( (CMICRO == 'ICE4') .AND. .NOT.YH%LACTIVE ) THEN
......
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