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

Philippe 06/03/2017: IO: bug correction: missing TFILE_SURFEX value for WRITE_DIAG_SURF_ATM_n

parent debcbc0a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
src/MNH/modeln.f90
+ 2
− 0
View file @ 86c7e640
...@@ -1320,7 +1320,9 @@ IF (IBAK>0 .AND. IBAK <= NBAK_NUMB ) THEN ...@@ -1320,7 +1320,9 @@ IF (IBAK>0 .AND. IBAK <= NBAK_NUMB ) THEN
CALL DIAG_SURF_ATM_n(YSURF_CUR%IM%DGEI, YSURF_CUR%FM%DGF, YSURF_CUR%DGL, YSURF_CUR%IM%DGI, & CALL DIAG_SURF_ATM_n(YSURF_CUR%IM%DGEI, YSURF_CUR%FM%DGF, YSURF_CUR%DGL, YSURF_CUR%IM%DGI, &
YSURF_CUR%SM%DGS, YSURF_CUR%DGU, YSURF_CUR%TM%DGT, YSURF_CUR%WM%DGW, & YSURF_CUR%SM%DGS, YSURF_CUR%DGU, YSURF_CUR%TM%DGT, YSURF_CUR%WM%DGW, &
YSURF_CUR%U, YSURF_CUR%USS,'MESONH') YSURF_CUR%U, YSURF_CUR%USS,'MESONH')
TFILE_SURFEX => TZBAKFILE
CALL WRITE_DIAG_SURF_ATM_n(YSURF_CUR,'MESONH','ALL') CALL WRITE_DIAG_SURF_ATM_n(YSURF_CUR,'MESONH','ALL')
NULLIFY(TFILE_SURFEX)
END IF END IF
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