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
Hide whitespace changes
Inline Side-by-side
src/MNH/prep_ideal_case.f90
+ 3
− 0
View file @ d2433b74
...@@ -361,6 +361,7 @@ USE MODE_IO_ll ...@@ -361,6 +361,7 @@ USE MODE_IO_ll
USE MODE_ll USE MODE_ll
USE MODD_ARGSLIST_ll, ONLY : LIST_ll USE MODD_ARGSLIST_ll, ONLY : LIST_ll
USE MODE_MODELN_HANDLER USE MODE_MODELN_HANDLER
USE MODE_FIELD
! !
USE MODI_DEFAULT_DESFM_n ! Interface modules USE MODI_DEFAULT_DESFM_n ! Interface modules
USE MODI_DEFAULT_EXPRE USE MODI_DEFAULT_EXPRE
...@@ -1748,6 +1749,8 @@ TZFILE%CMODE = 'WRITE' ...@@ -1748,6 +1749,8 @@ TZFILE%CMODE = 'WRITE'
TZFILE%NLFITYPE = NTYPE TZFILE%NLFITYPE = NTYPE
TZFILE%NLFIVERB = NVERB TZFILE%NLFIVERB = NVERB
! !
CALL INI_FIELD_LIST()
!
CALL IO_FILE_OPEN_ll(TZFILE,CLUOUT,NRESP) CALL IO_FILE_OPEN_ll(TZFILE,CLUOUT,NRESP)
! !
CALL WRITE_DESFM_n(1,CDESFM,CLUOUT) CALL WRITE_DESFM_n(1,CDESFM,CLUOUT)
......
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