1 module timedataC 2 3 integer ntspts, freq, iterat, varcod, nbuff 4 integer iblkts 5 real*8 tolpt 6 logical exts 7 8 integer, allocatable :: statptts(:,:) 9 real*8, allocatable :: ptts(:,:) 10 real*8, allocatable :: parptts(:,:) 11 real*8, allocatable :: varts(:,:) 12 13 !Extra variables for buffering and writting data 14 character(len=60) vartsIOFrmtStr 15 integer :: ivartsBuff 16 integer, allocatable, dimension(:) :: ivarts 17 integer, allocatable, dimension(:) :: ivartsg 18 real*8, allocatable, dimension(:) :: vartssoln 19 real*8, allocatable, dimension(:) :: vartssolng 20 real*8, allocatable, dimension(:,:,:) :: vartsbuff 21 integer, allocatable, dimension(:) :: vartsbuffStep 22 23 logical :: vartsResetBuffer !Used so that the buffer does 24 !not need to be reset 25 !immediately after writing. 26 27 end module 28 29 30 31 32 33 module pp_data 34 35 integer numppnodes, ppfreq 36 37 integer, allocatable :: ppnodes(:,:) 38 39 end module 40 41 42 43 44 45 46