diff --git a/src/MNH/ini_nsv.f90 b/src/MNH/ini_nsv.f90 index 592de1fd19eebcfb33836bd84c31ad152a9a6a7d..c49362598ed17e813c213a643ce5474e8711d5d1 100644 --- a/src/MNH/ini_nsv.f90 +++ b/src/MNH/ini_nsv.f90 @@ -817,6 +817,8 @@ DO JSV = NSV_LIMA_BEG_A(KMI), NSV_LIMA_END_A(KMI) CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(4) ) // YNUM2 ELSE IF ( JSV == NSV_LIMA_HOM_HAZE_A(KMI) ) THEN CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_COLD_NAMES(5) ) + ELSE IF ( JSV == NSV_LIMA_SPRO_A(KMI) ) THEN + CSVNAMES_A(JSV,KMI) = TRIM( CLIMA_WARM_NAMES(5) ) ELSE CALL Print_msg( NVERB_FATAL, 'GEN', 'INI_NSV', 'invalid index for LIMA' ) END IF diff --git a/src/MNH/write_aircraft_balloon.f90 b/src/MNH/write_aircraft_balloon.f90 index 993ce2f91077560b34f1509d56bbf6b637145d2b..f375e6beb766dcc9d865f44a2882bb5a22dd58cb 100644 --- a/src/MNH/write_aircraft_balloon.f90 +++ b/src/MNH/write_aircraft_balloon.f90 @@ -462,6 +462,7 @@ IF (SIZE(TPFLYER%SV,2)>=1) THEN YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(4))//INDICE//'T' ENDIF IF (JSV .EQ. NSV_LIMA_HOM_HAZE) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(5))//'T' + IF (JSV .EQ. NSV_LIMA_SPRO) YTITLE(JPROC)=TRIM(CLIMA_WARM_NAMES(5))//'T' ZWORK6 (1,1,1,:,1,JPROC) = TPFLYER%SV(:,JSV) END DO ! electrical scalar variables diff --git a/src/MNH/write_profilern.f90 b/src/MNH/write_profilern.f90 index e0ed5fcfd6b4bb0d8e4117996d9d8a85f67da5e1..45771c76007a73d4431544caa77a48ff7c103f21 100644 --- a/src/MNH/write_profilern.f90 +++ b/src/MNH/write_profilern.f90 @@ -492,6 +492,7 @@ IF (SIZE(TPROFILER%SV,4)>=1) THEN YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(4))//INDICE//'T' ENDIF IF (JSV .EQ. NSV_LIMA_HOM_HAZE) YTITLE(JPROC)=TRIM(CLIMA_COLD_NAMES(5))//'T' + IF (JSV .EQ. NSV_LIMA_SPRO) YTITLE(JPROC)=TRIM(CLIMA_WARM_NAMES(5))//'T' ZWORK6 (1,1,IK,:,1,JPROC) = TPROFILER%SV(:,IK,II,JSV) END DO