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

Philippe 28/06/2021: add missing write of NAM_STATIONn

parent 1a88c331
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 0 deletions
src/MNH/read_desfmn.f90
+ 3
− 0
View file @ 8d377980
...@@ -732,6 +732,9 @@ IF (NVERB >= 10) THEN ...@@ -732,6 +732,9 @@ IF (NVERB >= 10) THEN
! !
WRITE(UNIT=ILUOUT,FMT="('********** BLANKn ******************')") WRITE(UNIT=ILUOUT,FMT="('********** BLANKn ******************')")
WRITE(UNIT=ILUOUT,NML=NAM_BLANKn) WRITE(UNIT=ILUOUT,NML=NAM_BLANKn)
!
WRITE(UNIT=ILUOUT,FMT="('********** STATIONn ******************')")
WRITE(UNIT=ILUOUT,NML=NAM_STATIONn)
! !
IF (KMI==1) THEN IF (KMI==1) THEN
WRITE(UNIT=ILUOUT,FMT="(/,'PART OF INITIAL FILE COMMON TO ALL THE MODELS')") WRITE(UNIT=ILUOUT,FMT="(/,'PART OF INITIAL FILE COMMON TO ALL THE MODELS')")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme