Skip to content
Snippets Groups Projects
Commit 24f282a6 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 31/01/2023: bugfix LIMA, Ri not initialized in arg of condensation...

Quentin 31/01/2023: bugfix LIMA, Ri not initialized in arg of condensation (bug from plugging with PHYEX)
parent d6b01a1e
No related branches found
No related tags found
No related merge requests found
...@@ -504,12 +504,11 @@ DO JITER =1,ITERMAX ...@@ -504,12 +504,11 @@ DO JITER =1,ITERMAX
ZRC2=PRCT ZRC2=PRCT
ZRV_IN=ZRV ZRV_IN=ZRV
ZRC_IN=ZRC ZRC_IN=ZRC
ZRI_IN=0.
IF (NMOM_I.EQ.1) THEN IF (NMOM_I.EQ.1) THEN
ZRI=PRIS*PTSTEP ZRI_IN=PRIS*PTSTEP
GUSERI=.TRUE. GUSERI=.TRUE.
ELSE ELSE
ZRI=0. ZRI_IN=0.
GUSERI=.FALSE. GUSERI=.FALSE.
END IF END IF
IF (OSUBG_COND) THEN IF (OSUBG_COND) 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