Philippe 18/11/2016: bug correction: call IO_PREPARE_BAKOUT_STRUCT only if...

Philippe 18/11/2016: bug correction: call IO_PREPARE_BAKOUT_STRUCT only if program is MESONH + set default values fro NBAK/OUT_NUMB to 0

src/MNH/modd_outn.f90

@@ -48,7 +48,7 @@ IMPLICIT NONE
 
 TYPE OUT_t
 !
-  INTEGER             :: NBAK_NUMB, NOUT_NUMB ! number of outputs and backups performed by model n
+  INTEGER             :: NBAK_NUMB=0, NOUT_NUMB=0 ! Number of outputs and backups performed by model n
   TYPE(TOUTBAK),DIMENSION(:),POINTER :: TBACKUPN=>NULL(),TOUTPUTN=>NULL()
 ! Lists of the outputs and backups
 !

src/MNH/set_grid.f90

@@ -516,7 +516,7 @@ KSTOP = NINT(PSEGLEN/PTSTEP)
 !*       2.3    Temporal grid - outputs managment
 !
 ! The output/backups times have been read only by model 1
-IF (KMI == 1) CALL IO_PREPARE_BAKOUT_STRUCT(ISUP,PTSTEP,PSEGLEN)
+IF (CPROGRAM == 'MESONH' .AND. KMI == 1) CALL IO_PREPARE_BAKOUT_STRUCT(ISUP,PTSTEP,PSEGLEN)
 !
 KBAK_NUMB => OUT_MODEL(KMI)%NBAK_NUMB
 KOUT_NUMB => OUT_MODEL(KMI)%NOUT_NUMB