Searched refs:fvarts (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | timedata.f90 | 133 subroutine TD_writeHeader(fvarts) argument
140 character(len=*) fvarts local
148 open(unit=1001, file=fvarts, status='unknown')
255 subroutine TD_writeData(fvarts, forceFlush) argument
264 character(len=*) :: fvarts local
288 open(unit=1001, file = fvarts, status = "old",
|
| H A D | itrdrv.f | 72 character(len=60) fvarts local
115 write(fvarts, "('./varts/varts.', I0, '.dat')") lstep
116 fvarts = trim(fvarts)
119 call TD_writeHeader(fvarts)
676 call TD_writeData(fvarts, .false.)
846 call TD_writeData(fvarts, .true.) !force the flush of the buffer.
|
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 91 character*60 fnamepold, fvarts local
1365 character*60 fvarts local
1424 fvarts='varts/varts'
1425 fvarts=trim(fvarts)//trim(cname2(jj))
1426 fvarts=trim(fvarts)//trim(cname2(lstep))
1427 fvarts=trim(fvarts)//'.dat'
1428 fvarts=trim(fvarts)
1429 open(unit=1000+jj, file=fvarts, status='unknown')
1761 character*60 fvarts local
1820 fvarts='varts/varts'
[all …]
|