diff --git a/src/MNH/aircraft_balloon_evol.f90 b/src/MNH/aircraft_balloon_evol.f90 index dbb4d66097821e39c1661e704a4a70d96002b3fe..9642bcc4e8de8a731373a2db1fc3b94934abb8ce 100644 --- a/src/MNH/aircraft_balloon_evol.f90 +++ b/src/MNH/aircraft_balloon_evol.f90 @@ -632,6 +632,7 @@ IF ( TPFLYER%FLY) THEN END DO ZTHW_FLUX(:,:,:) = ZRHO(:,:,:)*XCPD *XTHW_FLUX(II:II+1,IJ:IJ+1,:) ZRCW_FLUX(:,:,:) = ZRHO(:,:,:)*XLVTT*XRCW_FLUX(II:II+1,IJ:IJ+1,:) + ZSVW_FLUX(:,:,:,:) = XSVW_FLUX(II:II+1,IJ:IJ+1,:,:) END IF ! diff --git a/src/MNH/write_aircraft_balloon.f90 b/src/MNH/write_aircraft_balloon.f90 index 822a7b2a7ab52b2f5c4c0d0b344a643a6689e7e4..c4036ee466d588a2e8076143d5c62d92eb6ad0eb 100644 --- a/src/MNH/write_aircraft_balloon.f90 +++ b/src/MNH/write_aircraft_balloon.f90 @@ -398,7 +398,7 @@ ZWORK6 (1,1,1,:,1,JPROC) = TPFLYER%RCW_FLUX(:) ! DO JSV=1,SIZE(TPFLYER%SVW_FLUX,2) JPROC = JPROC + 1 - YTITLE (JPROC) = 'SV_FLUX' + WRITE ( YTITLE(JPROC), FMT = '( A7, I3.3 )' ) 'SV_FLUX', JSV YUNIT (JPROC) = 'SVUNIT m s-1' YCOMMENT (JPROC) = 'scalar flux' ZWORK6 (1,1,1,:,1,JPROC) = TPFLYER%SVW_FLUX(:,JSV)