From e089b96aebc51e793d3c5f1f57a4836dfe0d8bf3 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 20 Apr 2018 16:26:29 +0200
Subject: [PATCH] Philippe 20/04/2018: PREP_IDEAL_CASE: use the dummy file
instead of a null pointer
---
src/MNH/prep_ideal_case.f90 | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 41adc60d7..3bb3639a2 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/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
!
--
GitLab