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

S. Riette 12 Sept 2023: small bf for lima init

parent 6be07beb
No related branches found
No related tags found
No related merge requests found
......@@ -176,7 +176,7 @@ IF(LLINIT) THEN
IF(LLCHANGEMODEL) CALL NSV_ASSOCIATE()
IF(PRESENT(PHYEX_IN)) TNSV=PHYEX_IN%TNSV
TNSV%NSV=0
CALL LIMA_UPDATE_NSV(LDINIT=.TRUE., KMI=1, KSV=TNSV%NSV, &
CALL LIMA_UPDATE_NSV(LDINIT=.TRUE., KMI=KTO, KSV=TNSV%NSV, &
&CDCLOUD=CMICRO, LDUPDATE=.TRUE.)
TNSV%NSV=TNSV%NSV_LIMA
IF(PRESENT(PHYEX_OUT)) PHYEX_OUT%TNSV=TNSV
......
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