adaptive-cfd / WABBIT

Wavelet Adaptive Block-Based solver for Interactions with Turbulence

Home Page:https://www.cfd.tu-berlin.de/

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

Error in get_inicond_from_file.f90?

dkolom opened this issue · comments

I think there is a mistake in LIB/INI/get_inicond_from_file.f90

do i = 1, params%dim
    if (periodic_BC(i).eqv.params%periodic_BC(i)) then
        if (params%rank==0) write(*,*) "WARNING WARNING WARNING periodic_BC in inifile and HDF5 file are different!"
    endif

    if (symmetry_BC(i).eqv.params%symmetry_BC(i)) then
        if (params%rank==0) write(*,*) "WARNING WARNING WARNING symmetry_BC in inifile and HDF5 file are different!"
    endif
enddo

Maybe '.eqv.' should be replaced with '.ne.' ?