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

Philippe 05/01/2017: bug correction: initialize field list

parent 89f9a949
No related branches found
No related tags found
No related merge requests found
......@@ -361,6 +361,7 @@ USE MODE_IO_ll
USE MODE_ll
USE MODD_ARGSLIST_ll, ONLY : LIST_ll
USE MODE_MODELN_HANDLER
USE MODE_FIELD
!
USE MODI_DEFAULT_DESFM_n ! Interface modules
USE MODI_DEFAULT_EXPRE
......@@ -1748,6 +1749,8 @@ TZFILE%CMODE = 'WRITE'
TZFILE%NLFITYPE = NTYPE
TZFILE%NLFIVERB = NVERB
!
CALL INI_FIELD_LIST()
!
CALL IO_FILE_OPEN_ll(TZFILE,CLUOUT,NRESP)
!
CALL WRITE_DESFM_n(1,CDESFM,CLUOUT)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment