From f5c0f1afd750ea9755bb66f46c1782da2d821226 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 1 Dec 2023 09:34:21 +0100 Subject: [PATCH] Philippe 01/12/2023: profilers: remove point temperature output (keep vertical profile) because not at profiler vertical position (was taken at first level) --- src/MNH/write_profilern.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/MNH/write_profilern.f90 b/src/MNH/write_profilern.f90 index b05a58c4a..f7ed2e141 100644 --- a/src/MNH/write_profilern.f90 +++ b/src/MNH/write_profilern.f90 @@ -251,7 +251,7 @@ call Sensor_write_workarrays_deallocate( ) !---------------------------------------------------------------------------- !Treat point values -IPROC = 5 +IPROC = 4 IF (LDIAG_SURFRAD_PROF) THEN IPROC = IPROC + 10 IF(CRAD/="NONE") IPROC = IPROC + 8 @@ -271,7 +271,6 @@ call Add_point( 'IWV', 'Integrated Water Vapour', 'kg m-2', tpprofiler%xiwv ) call Add_point( 'ZTD', 'Zenith Tropospheric Delay', 'm', tpprofiler%xztd ) call Add_point( 'ZWD', 'Zenith Wet Delay', 'm', tpprofiler%xzwd ) call Add_point( 'ZHD', 'Zenith Hydrostatic Delay', 'm', tpprofiler%xzhd ) -call Add_point( 'T', 'Temperature', 'K', tpprofiler%xt(1,:) ) if ( crad /= 'NONE' ) call Add_point( 'Tsrad', 'Radiative Surface Temperature', 'K', tpprofiler%xtsrad(:) ) -- GitLab