Skip to content
Snippets Groups Projects
Commit a0e4c900 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 19/01/2023: backward compatibility fix: set DRYMASSS to 0. if not...

Philippe 19/01/2023: backward compatibility fix: set DRYMASSS to 0. if not found in restart file (needed to restart with pre 5.5.1 backup files)
parent 93d26ea0
Branches
Tags
No related merge requests found
!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -1007,7 +1007,13 @@ CALL INI_LB(TPINIFILE,GLSOURCE,ISV, & ...@@ -1007,7 +1007,13 @@ CALL INI_LB(TPINIFILE,GLSOURCE,ISV, &
! !
CALL IO_Field_read(TPINIFILE,'DRYMASST',PDRYMASST) ! dry mass CALL IO_Field_read(TPINIFILE,'DRYMASST',PDRYMASST) ! dry mass
IF (CCONF=='RESTA') THEN IF (CCONF=='RESTA') THEN
CALL IO_Field_read(TPINIFILE,'DRYMASSS',PDRYMASSS) ! dry mass tendency CALL IO_Field_read(TPINIFILE,'DRYMASSS',PDRYMASSS,IRESP) ! dry mass tendency
! DRYMASSS was not written in backup files before MesoNH 5.5.1
IF ( IRESP /= 0 ) THEN
CALL PRINT_MSG( NVERB_WARNING, 'IO', 'READ_FIELD', 'PDRYMASSS set to 0 for ' // TRIM( TZFIELD%CMNHNAME ) )
PDRYMASSS = 0.
END IF
ELSE ELSE
PDRYMASSS=XUNDEF ! should not be used PDRYMASSS=XUNDEF ! should not be used
END IF END IF
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment