Blame view

highEkmanNLin/rhsRealV.f90 133 Bytes
af19620a   Kévin Duquette   Add all files
1
2
3
4
5
6
7
8
! This create a V similar of MIT

realV(:,:) = 0.0

do i=1,nx+1
  x = float(i-1)*dx
  realV(i,:) = - Vmean * cos(2*Pi*x/Lx) 
end do