diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90 index b9ed4986e13af9ebeefb9074cc8d38510fe6477f..c7061ece35bc46544251eff9183efec681e19d65 100644 --- a/src/MNH/prep_ideal_case.f90 +++ b/src/MNH/prep_ideal_case.f90 @@ -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)