Changes between Version 8 and Version 9 of u/adebrech/code


Ignore:
Timestamp:
04/14/17 11:37:35 (8 years ago)
Author:
adebrech
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • u/adebrech/code

    v8 v9  
    55{{{#!fortran
    66NAMELIST/ProblemData/ starttime,finaltime,frames,xL,xR,cells,alpha,beta,BC,Eq,IC,advectionConst,CFL
    7        
    8         ! Make sure problem.data exists. If it does, read in. If not, output error and quit.
    9         inquire(file='GodunovProblem.data', exist=ex)
    10         if (ex) then
    11          OPEN(UNIT=30, FILE='GodunovProblem.data', STATUS="OLD")
    12          READ(30,NML=ProblemData)                               ! read into variables in namelist
    13          CLOSE(30)
    14         else
    15          print *, 'Missing GodunovProblem.data. Exiting.'
    16          stop           ! exit if missing
    17         end if
     7
     8! Make sure problem.data exists. If it does, read in. If not, output error and quit.
     9inquire(file='GodunovProblem.data', exist=ex)
     10if (ex) then
     11 OPEN(UNIT=30, FILE='GodunovProblem.data', STATUS="OLD")
     12 READ(30,NML=ProblemData)       ! read into variables in namelist
     13 CLOSE(30)
     14else
     15 print *, 'Missing GodunovProblem.data. Exiting.'
     16 stop   ! exit if missing
     17end if
    1818}}}
    1919