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

Philippe 30/09/2022: bugfix: write XCURRENT_LWU in LWU field (and not XCURRENT_LWD)

parent a62e405f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/write_lfifm1_for_diag_supp.f90
+ 1
− 1
View file @ ec5e940e
...@@ -963,7 +963,7 @@ IF (CSURF=='EXTE') THEN ...@@ -963,7 +963,7 @@ IF (CSURF=='EXTE') THEN
NTYPE = TYPEREAL, & NTYPE = TYPEREAL, &
NDIMS = 2, & NDIMS = 2, &
LTIMEDEP = .TRUE. ) LTIMEDEP = .TRUE. )
CALL IO_Field_write(TPFILE,TZFIELD,XCURRENT_LWD) CALL IO_Field_write(TPFILE,TZFIELD,XCURRENT_LWU)
END IF END IF
END IF END IF
......
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