From 4f3abe722c607c598d6795de11f727c9af7ac83d Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 20 Jul 2023 11:16:04 +0200 Subject: [PATCH] Philippe 20/07/2023: stations: bugfix: titles and comments were wrong for salts --- src/MNH/write_stationn.f90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/MNH/write_stationn.f90 b/src/MNH/write_stationn.f90 index 99c9bba86..f33052778 100644 --- a/src/MNH/write_stationn.f90 +++ b/src/MNH/write_stationn.f90 @@ -357,18 +357,18 @@ if ( nsv > 0 ) then CALL PPP2SALT(ZSV,ZRHO, PSIG3D=ZSIG, PRG3D=ZRG, PN3D=ZN0) DO JSV=1,NMODE_SLT ! mean radius - WRITE(CTITLE(JPROC),'(A6,I1)')'SLTRGA',JSV - WRITE(CCOMMENT(JPROC),'(A18,I1)')'RG (nb) SALT MODE ',JSV + WRITE( YTITLE, '( A6, I1 )' ) 'SLTRGA', JSV + WRITE( YCOMMENT, '( A18, I1 )' ) 'RG (nb) SALT MODE ', JSV call Add_point( ytitle, ycomment, 'um', ZRG(1,1,:,JSV) ) ! standard deviation - WRITE(CTITLE(JPROC),'(A7,I1)')'SLTSIGA',JSV - WRITE(CCOMMENT(JPROC),'(A16,I1)')'SIGMA DUST MODE ',JSV + WRITE( YTITLE, '( A7, I1 )' ) 'SLTSIGA', JSV + WRITE( YCOMMENT, '( A16, I1 )' ) 'SIGMA DUST MODE ', JSV call Add_point( ytitle, ycomment, '',ZSIG(1,1,:,JSV) ) ! particles number - WRITE(CTITLE(JPROC),'(A6,I1)')'SLTN0A',JSV - WRITE(CCOMMENT(JPROC),'(A13,I1)')'N0 DUST MODE ',JSV + WRITE( YTITLE, '( A6, I1 )' ) 'SLTN0A', JSV + WRITE( YCOMMENT, '( A13, I1 )' ) 'N0 DUST MODE ', JSV call Add_point( ytitle, ycomment, 'm-3', ZN0(1,1,:,JSV) ) ENDDO DEALLOCATE (ZSV,ZRHO) -- GitLab