Skip to content
Snippets Groups Projects
Commit 842b8cb9 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 15/04/2021: bugfix: allocate CBULIST_R* to zero size in write_desfmn if not allocated

parent 0c6295c3
No related branches found
No related tags found
No related merge requests found
......@@ -506,42 +506,55 @@ IF (NVERB >= 5) THEN
WRITE(UNIT=ILUOUT,FMT="('************ BUDGET ***************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BUDGET)
!
IF ( .NOT. ALLOCATED( CBULIST_RU ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RU(0) )
WRITE(UNIT=ILUOUT,FMT="('************ U BUDGET *************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RU)
!
!
IF ( .NOT. ALLOCATED( CBULIST_RV ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RV(0) )
WRITE(UNIT=ILUOUT,FMT="('************ V BUDGET *************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RV)
!
IF ( .NOT. ALLOCATED( CBULIST_RW ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RW(0) )
WRITE(UNIT=ILUOUT,FMT="('************ W BUDGET *************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RW)
!
IF ( .NOT. ALLOCATED( CBULIST_RTH ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RTH(0) )
WRITE(UNIT=ILUOUT,FMT="('************ TH BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RTH)
!
IF ( .NOT. ALLOCATED( CBULIST_RTKE ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RTKE(0) )
WRITE(UNIT=ILUOUT,FMT="('************ TKE BUDGET ***********************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RTKE)
!
IF ( .NOT. ALLOCATED( CBULIST_RRV ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRV(0) )
WRITE(UNIT=ILUOUT,FMT="('************ RV BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RRV)
!
IF ( .NOT. ALLOCATED( CBULIST_RRC ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRC(0) )
WRITE(UNIT=ILUOUT,FMT="('************ RC BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RRC)
!
IF ( .NOT. ALLOCATED( CBULIST_RRR ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRR(0) )
WRITE(UNIT=ILUOUT,FMT="('************ RR BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RRR)
!
IF ( .NOT. ALLOCATED( CBULIST_RRI ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRI(0) )
WRITE(UNIT=ILUOUT,FMT="('************ RI BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RRI)
!
IF ( .NOT. ALLOCATED( CBULIST_RRS ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRS(0) )
WRITE(UNIT=ILUOUT,FMT="('************ RS BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RRS)
!
IF ( .NOT. ALLOCATED( CBULIST_RRG ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRG(0) )
WRITE(UNIT=ILUOUT,FMT="('************ RG BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RRG)
!
IF ( .NOT. ALLOCATED( CBULIST_RRH ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RRH(0) )
WRITE(UNIT=ILUOUT,FMT="('************ RH BUDGET ************************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RRH)
!
IF ( .NOT. ALLOCATED( CBULIST_RSV ) ) ALLOCATE( CHARACTER(LEN=NBULISTMAXLEN) :: CBULIST_RSV(0) )
WRITE(UNIT=ILUOUT,FMT="('************ SVx BUDGET ***********************')")
WRITE(UNIT=ILUOUT,NML=NAM_BU_RSV)
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment