diff --git a/src/MNH/aircraft_balloon_evol.f90 b/src/MNH/aircraft_balloon_evol.f90 index b6115ed625eae3d09869710df6cf2dc2b5bd4986..13a47cea1f84e07f58e4f6aa82e66c66b9ec36b1 100644 --- a/src/MNH/aircraft_balloon_evol.f90 +++ b/src/MNH/aircraft_balloon_evol.f90 @@ -655,6 +655,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 591cdb303160704ef02cb3e2101b367f0c2e84a5..23e939f6042e70cf1ab51178bdb196ec4d7ae8dd 100644 --- a/src/MNH/write_aircraft_balloon.f90 +++ b/src/MNH/write_aircraft_balloon.f90 @@ -396,7 +396,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)