Skip to content
Snippets Groups Projects
Commit 117e1175 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Christine 10/04/2014 : correction relative to the introduction of LCHECK

parent 4887885b
No related branches found
No related tags found
No related merge requests found
......@@ -113,7 +113,9 @@ INTEGER :: IINFO_ll ! return code of // routines
!* 1. INITIALIZATION
! --------------
! Switch to model 1 variables
CALL MPPDB_INIT()
IF (LCHECK) THEN
CALL MPPDB_INIT()
END IF
CALL GOTO_MODEL(1)
!
CALL INITIO_ll()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment