diff --git a/src/MNH/mesonh.f90 b/src/MNH/mesonh.f90 index f6b78bf97cfd42c5ea6a91e85fd40b1f5e87cb91..dbd1a0a7f886396a40d471ad418dc19f5b765ac7 100644 --- a/src/MNH/mesonh.f90 +++ b/src/MNH/mesonh.f90 @@ -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()