Philippe 15/04/2021: allocate budget lists to zero size when not needed + comment unused module

src/MNH/read_exsegn.f90

@@ -310,7 +310,7 @@ USE MODD_CONDSAMP
 USE MODD_CONF
 USE MODD_CONF_n,  ONLY: CSTORAGE_TYPE
 USE MODD_CONFZ
-USE MODD_DRAG_n
+! USE MODD_DRAG_n
 USE MODD_DUST
 USE MODD_DYN
 USE MODD_DYN_n, ONLY : LHORELAX_SVLIMA
@@ -605,6 +605,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RU(NBULISTMAXLINES) )
     CBULIST_RU(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RU)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RU(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RV',GFOUND,ILUOUT)
@@ -616,6 +618,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RV(NBULISTMAXLINES) )
     CBULIST_RV(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RV)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RV(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RW',GFOUND,ILUOUT)
@@ -627,6 +631,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RW(NBULISTMAXLINES) )
     CBULIST_RW(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RW)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RW(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RTH',GFOUND,ILUOUT)
@@ -638,6 +644,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RTH(NBULISTMAXLINES) )
     CBULIST_RTH(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RTH)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RTH(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RTKE',GFOUND,ILUOUT)
@@ -649,6 +657,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RTKE(NBULISTMAXLINES) )
     CBULIST_RTKE(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RTKE)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RTKE(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RRV',GFOUND,ILUOUT)
@@ -660,6 +670,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRV(NBULISTMAXLINES) )
     CBULIST_RRV(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RRV)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRV(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RRC',GFOUND,ILUOUT)
@@ -671,6 +683,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRC(NBULISTMAXLINES) )
     CBULIST_RRC(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RRC)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRC(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RRR',GFOUND,ILUOUT)
@@ -682,6 +696,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRR(NBULISTMAXLINES) )
     CBULIST_RRR(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RRR)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRR(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RRI',GFOUND,ILUOUT)
@@ -693,6 +709,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRI(NBULISTMAXLINES) )
     CBULIST_RRI(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RRI)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRI(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RRS',GFOUND,ILUOUT)
@@ -704,6 +722,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRS(NBULISTMAXLINES) )
     CBULIST_RRS(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RRS)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRS(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RRG',GFOUND,ILUOUT)
@@ -715,6 +735,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRG(NBULISTMAXLINES) )
     CBULIST_RRG(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RRG)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRG(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RRH',GFOUND,ILUOUT)
@@ -726,6 +748,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRH(NBULISTMAXLINES) )
     CBULIST_RRH(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RRH)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRH(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_BU_RSV',GFOUND,ILUOUT)
@@ -737,6 +761,8 @@ IF (KMI == 1) THEN
     ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RSV(NBULISTMAXLINES) )
     CBULIST_RSV(:) = ''
     READ(UNIT=ILUSEG,NML=NAM_BU_RSV)
+  ELSE
+    ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RSV(0) )
   END IF
 
   CALL POSNAM(ILUSEG,'NAM_LES',GFOUND,ILUOUT)