Skip to content
Snippets Groups Projects
Commit 6045d2d8 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 6/11/2014: remove test on LCHECK otherwise never call MPPDB_INIT

parent b7f18ae9
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 3 deletions
src/MNH/mesonh.f90
+ 2
− 3
View file @ 6045d2d8
...@@ -76,6 +76,7 @@ ...@@ -76,6 +76,7 @@
!! J.P. Chaboureau 15/03/04 loop limited to 100000 iterations !! J.P. Chaboureau 15/03/04 loop limited to 100000 iterations
!! remplaced by infinite loop !! remplaced by infinite loop
!! J.Escobar 19/03/2008 rename INIT to INIT_MNH --> grib problem !! J.Escobar 19/03/2008 rename INIT to INIT_MNH --> grib problem
!! J.Escobar 6/11/2014 remove test on LCHECK otherwise never call MPPDB_INIT
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -113,9 +114,7 @@ INTEGER :: IINFO_ll ! return code of // routines ...@@ -113,9 +114,7 @@ INTEGER :: IINFO_ll ! return code of // routines
!* 1. INITIALIZATION !* 1. INITIALIZATION
! -------------- ! --------------
! Switch to model 1 variables ! Switch to model 1 variables
IF (LCHECK) THEN CALL MPPDB_INIT()
CALL MPPDB_INIT()
END IF
CALL GOTO_MODEL(1) CALL GOTO_MODEL(1)
! !
CALL INITIO_ll() CALL INITIO_ll()
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme