giorgk

function CBC = readCVHMcbc(filename)

fid = fopen(filename,'r');
ind1 = 0;
ind2 = 1;
kper = 0;
while ~feof(fid)
    temp=[];
    KSTP = fread(fid,1,'uint');
    KPER = fread(fid,1,'uint');

giorgk

Ichnos test list

This is a minimum list of tests that each new version of Ichnos should run succesfully.

The ones with tick have been succesful on the current development version

Current version 0.4.10

• CLOUD
• Steady state

giorgk

faceVel=nan(15000,22);
faceVel(1,:) = 0;
cnt_fc = 1;
msh_face_ids = zeros(size(msh,1),4);
cnt = 1;
for ii = 1:size(msh_grid,1)
    for jj = 1:size(msh_grid,2)
        nd = msh_grid(ii,jj).ND;
        % Face 1 is the ii-1,jj FRONT
        if ii == 1

giorgk

[x y]=ginput(4);
x=100*x;
y=100*y;
subplot(1,2,1);plot(x([1:4 1]),y([1:4 1]))
hold on
subplot(1,2,2);plot([-1 -1 1 1 -1],[-1 1 1 -1 -1]);
hold on
subplot(1,2,1);title('Hit enter to exit')
while 1
    p1=[];p2=[];