diff --git a/src/MNH/read_desfmn.f90 b/src/MNH/read_desfmn.f90 index ce23cbb2ccae0f1e9151fd117335a597a91d865d..ea6c0f70474357cbcaf5ec8b0dcc33e18b51eecd 100644 --- a/src/MNH/read_desfmn.f90 +++ b/src/MNH/read_desfmn.f90 @@ -266,8 +266,6 @@ USE MODN_LATZ_EDFLX USE MODN_2D_FRC USE MODN_BLOWSNOW_n USE MODN_BLOWSNOW -USE MODN_PROFILER_n, LDIAG_SURFRAD_PROF => LDIAG_SURFRAD -USE MODN_STATION_n, LDIAG_SURFRAD_STAT => LDIAG_SURFRAD ! USE MODN_PARAM_LIMA ! USE MODN_FLYERS @@ -481,18 +479,20 @@ IF (GFOUND) THEN READ(UNIT=ILUDES,NML=NAM_BLANKn) CALL UPDATE_NAM_BLANKn END IF -CALL POSNAM( TZDESFILE, 'NAM_PROFILERN', GFOUND ) -CALL INIT_NAM_PROFILERn -IF (GFOUND) THEN - READ(UNIT=ILUDES,NML=NAM_PROFILERN) - CALL UPDATE_NAM_PROFILERn -END IF -CALL POSNAM( TZDESFILE, 'NAM_STATIONN', GFOUND ) -CALL INIT_NAM_STATIONn -IF (GFOUND) THEN - READ(UNIT=ILUDES,NML=NAM_STATIONn) - CALL UPDATE_NAM_STATIONn -END IF +! Note: it is not useful to read the PROFILERS/STATIONS namelists in the .des files +! The values here (if present in file) don't need to be compared with the ones in the EXSEGn files +! CALL POSNAM( TZDESFILE, 'NAM_PROFILERN', GFOUND ) +! CALL INIT_NAM_PROFILERn +! IF (GFOUND) THEN +! READ(UNIT=ILUDES,NML=NAM_PROFILERN) +! CALL UPDATE_NAM_PROFILERn +! END IF +! CALL POSNAM( TZDESFILE, 'NAM_STATIONN', GFOUND ) +! CALL INIT_NAM_STATIONn +! IF (GFOUND) THEN +! READ(UNIT=ILUDES,NML=NAM_STATIONn) +! CALL UPDATE_NAM_STATIONn +! END IF CALL POSNAM( TZDESFILE, 'NAM_FIREN', GFOUND ) CALL INIT_NAM_FIREn IF (GFOUND) THEN @@ -764,11 +764,12 @@ IF (NVERB >= 10) THEN WRITE(UNIT=ILUOUT,FMT="('********** BLANKn ******************')") WRITE(UNIT=ILUOUT,NML=NAM_BLANKn) ! - WRITE(UNIT=ILUOUT,FMT="('********** PROFILERn *****************')") - WRITE(UNIT=ILUOUT,NML=NAM_PROFILERn) +! Profilers/stations namelists not read anymore in READ_DESFM_n +! WRITE(UNIT=ILUOUT,FMT="('********** PROFILERn *****************')") +! WRITE(UNIT=ILUOUT,NML=NAM_PROFILERn) ! - WRITE(UNIT=ILUOUT,FMT="('********** STATIONn ******************')") - WRITE(UNIT=ILUOUT,NML=NAM_STATIONn) +! WRITE(UNIT=ILUOUT,FMT="('********** STATIONn ******************')") +! WRITE(UNIT=ILUOUT,NML=NAM_STATIONn) ! WRITE(UNIT=ILUOUT,FMT="('********** BLAZE *******************')") WRITE(UNIT=ILUOUT,NML=NAM_FIREn)