Hi Flash users,
I was running mhd on a jet nozzle and I ran into a
strange problem with the temperature kept at a very
small number. I was told to look for smallt in the
Config file.
I couldn't find smallt in the Config or other files in
the sedov or mhd modules so I resort to calling eos3d
inside the init_block.F90 in my own setup files which
are based on the Sedov example (attached).
However, I have a problem with setting up the
solnData
variable for the eos3d call.
I used the statement:
real, pointer,DIMENSION(:,:,:,:) :: solnData
and the call with :
call eos3d(solnData,block_no,7)
temp=solnData(itemp,i,j,k)
Now the compiler takes it but when I kick off the
flash2 executable I got :
p0_11910: p4_error: interrupt SIGSEGV: 11
I tried putting in the pointer call :
solnData => dBaseGetDataPtrSingleBlock(block_no)
but dBaseGetDataPtrSingleBlock cannot be invoked in
use dBase only : dBaseGetDataPtrSingleBlock
statement.
Is there any easier way to get control of the temp
variable or do you spot problem in the statements I
used?
Many Thanks!
Bst,
Victor
This archive was generated by hypermail 2.1.8 : Thu Aug 31 2006 - 21:20:48 CDT