[Nek5000-users] Problem with multiple file inut

[nek5000-users at lists.mcs.anl.gov]

Great to hear, Joerg!

Aleks

----- Original Message -----
From: nek5000-users at lists.mcs.anl.gov
To: nek5000-users at lists.mcs.anl.gov
Cc: "Janet Scheel" <jscheel at oxy.edu>
Sent: Thursday, June 6, 2013 7:37:56 AM
Subject: Re: [Nek5000-users] Problem with multiple file inut

Hi Neks,

just to give a positive feedback to this problem:

Output into single file G1_640.f00001 during production job requires the following loop for post processing 

      IF (istep.eq.1) THEN

       do k=1,1
        WRITE(fldfle,'("G1_640.f",I5.5)')k  
        initc(1) = trim(fldfle)
        call restart(1)

        ….. do analysis with data from G1_640.f00001

       enddo
     ENDIF

Output into multiple files G1_64x.f00001 during production job requires the following loop for post processing 

     character*13  fnames

      IF (istep.eq.1) THEN

       do k=1,1
        WRITE(fldfle,'("G1_64?.f",I5.5)')k  
        fnames = trim(fldfle)
        call chcopy(initc(1),fnames,13) 
        call restart(1)

        ….. do analysis with data from G1_64x.f00001

       enddo
     ENDIF


Thanks once more Aleks and Paul.
Best wishes, Joerg.

_______________________________________________
Nek5000-users mailing list
Nek5000-users at lists.mcs.anl.gov
https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users