Philippe 20/04/2018: PREP_IDEAL_CASE: use the dummy file instead of a null pointer

src/MNH/prep_ideal_case.f90

@@ -345,7 +345,7 @@ USE MODD_SALT,      ONLY:  LSALT, NMODE_SLT, CRGUNITS, XINISIG_SLT, XINIRADIUS_S
 USE MODD_VAR_ll,    ONLY:  NPROC
 USE MODD_LUNIT,     ONLY:  TLUOUT0, TOUTDATAFILE
 USE MODD_LUNIT_n
-USE MODD_IO_ll,     ONLY: NIO_VERB,NVERB_DEBUG,TFILE_OUTPUTLISTING
+USE MODD_IO_ll,     ONLY: NIO_VERB,NVERB_DEBUG,TFILE_DUMMY,TFILE_OUTPUTLISTING
 USE MODD_CONF_n
 USE MODD_NSV,      ONLY : NSV,NSV_CHEM,           &
                           NSV_DSTEND, NSV_DSTBEG
@@ -572,8 +572,7 @@ REAL              :: ZZS_MAX, ZZS_MAX_ll
 INTEGER           :: IJPHEXT
 !
 TYPE(TFILEDATA),POINTER :: TZEXPREFILE  => NULL()
-TYPE(TFILEDATA),POINTER :: TZFILE       => NULL()
-TYPE(TFILEDATA),POINTER :: TZFILEDUMMY  => NULL()
+TYPE(TFILEDATA),POINTER :: TZFILEDUMMY  => TFILE_DUMMY
 TYPE(TFILEDATA),POINTER :: TZINIFILEPGD => NULL()
 TYPE(TFILEDATA),POINTER :: TZPGDFILE    => NULL()
 !
@@ -1490,10 +1489,10 @@ IF (CIDEAL == 'RSOU') THEN
   BACKSPACE(NLUPRE)    ! because YKIND read again in set_rsou
   WRITE(NLUOUT,FMT=*) 'CIDEAL="RSOU", ATTEMPT TO PROCESS THE SOUNDING DATA'
   IF (LGEOSBAL) THEN
-    CALL SET_RSOU(TZFILE,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
+    CALL SET_RSOU(TZFILEDUMMY,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
                   LRMV_BL,XJ,LSHIFT,XCORIOZ)
   ELSE
-    CALL SET_RSOU(TZFILE,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
+    CALL SET_RSOU(TZFILEDUMMY,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
                   LRMV_BL,XJ,LSHIFT)
   END IF
 !
@@ -1509,10 +1508,10 @@ ELSE IF (CIDEAL == 'CSTN') THEN
   TDTMOD = TDTCUR
   WRITE(NLUOUT,FMT=*) 'CIDEAL="CSTN", ATTEMPT TO PROCESS THE SOUNDING DATA'
   IF (LGEOSBAL) THEN
-    CALL SET_CSTN(TZFILE,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
+    CALL SET_CSTN(TZFILEDUMMY,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
                   LRMV_BL,XJ,LSHIFT,XCORIOZ)
   ELSE
-    CALL SET_CSTN(TZFILE,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
+    CALL SET_CSTN(TZFILEDUMMY,TZEXPREFILE,CFUNU,CFUNV,NILOC(1),NJLOC(1),LBOUSS,LPV_PERT,&
                   LRMV_BL,XJ,LSHIFT)
   END IF
 !