<div style="margin-left: 0px">Hi Nek's,</div><div style="margin-left: 0px"><br></div><div style="margin-left: 0px">I have a few troubles using the lambda-2 subroutine. Here is my usrchk:</div><div style="margin-left: 80px">

<br></div><div style="margin-left: 80px"> subroutine userchk<br></div><div style="margin-left: 80px">      include 'SIZE'<br></div><div style="margin-left: 80px">      include 'TOTAL'<br></div><div style="margin-left: 80px">

        include 'RESTART'<br></div><div style="margin-left: 80px"><br></div><div style="margin-left: 80px">        character*80 filename(9999)<br></div><div style="margin-left: 80px">parameter(lt = lx1*ly1*lz1*lelv)<br>

</div><div style="margin-left: 80px">        real L2(lx1,ly1,lz1,1)<br></div><div style="margin-left: 80px">        integer nfiles<br></div><div style="margin-left: 80px"><br></div><div style="margin-left: 80px">        ntot = nx1*ny1*nz1*nelv<br>

</div><div style="margin-left: 80px"><br></div><div style="margin-left: 80px">        ifreguo = .true.<br></div><div style="margin-left: 80px"><br></div><div style="margin-left: 80px">        if (nid.eq.0) then<br></div>
<div style="margin-left: 80px">
                open(unit=199,file='file.list',form='formatted',status='old')<br></div><div style="margin-left: 80px">                read(199,*) nfiles<br></div><div style="margin-left: 80px">                read(199,'(A80)') (filename(i),i=1,nfiles)<br>

</div><div style="margin-left: 80px">                close(199)<br></div><div style="margin-left: 80px">        endif<br></div><div style="margin-left: 80px"><br></div><div style="margin-left: 80px">        call bcast(nfiles,isize)<br>

</div><div style="margin-left: 80px">        call bcast(filename,nfiles*80)<br></div><div style="margin-left: 80px"><br></div><div style="margin-left: 80px">        do i = 1,nfiles<br></div><div style="margin-left: 80px">

                call load_fld(filename(i))<br></div><div style="margin-left: 80px">                call lambda2(L2)<br></div><div style="margin-left: 80px">                ifto = .true.<br></div><div style="margin-left: 80px">

                call outpost(vx,vy,vz,pr,L2,'his')<br></div><div style="margin-left: 80px">        enddo<br></div><div style="margin-left: 80px"><br></div><div style="margin-left: 80px">        call exitt<br></div>

<div style="margin-left: 80px"><br></div><div style="margin-left: 80px">      return<br></div><div style="margin-left: 80px">      end<div><div><br></div></div></div><div>The thing is that it actually outposts nothing (or at least it looks like to me that it doesn't outpost anything). I have tried switching from my l2 variable to the temperature t variable but it did not changed anything. Any clues?<br>

</div><div><br></div><div>Regards,<br>JC<br></div><div><div><div><div><br><br></div></div></div></div>