[Fortran] 纯文本查看 复制代码
program xx
implicit none
include "param.h"
include "TECIO_mod.f90"
real(8) :: X(ngi,ngj),Y(ngi,ngj),T(ni,nj),SS(ni,nj),TURB(ni,nj),U(ni,nj),V(ni,nj),yvd(ngj),dx(ni)
real(8),allocatable :: XT(:,:),YT(:,:),TT(:,:),SST(:,:),TURBT(:,:),UT(:,:),VT(:,:)
real(8) :: dys,ytmp1,ytmp2
integer :: i,j,ii,jj,tloop,io
integer :: dts,dto,tts1,tts2
integer :: iyr,imon,iday,ihour,niu,njs
integer :: js(ni)
!====Variables for Tecplot-Binary Output
integer(4) :: ti,tiii,imax,jmax,kmax,debug,disdouble,visdouble
integer(4) :: strandid,parentzn
integer(4) :: pvl(7),valloc(7),sharingzone(7)
real(8) :: soltime1,soltime2
character(len=1) :: nulchar
character(len=15) :: timchar1,timchar2
include "output_step.h"
!====debug==
write(*,*)nnts(1,1)
write(*,*)nnts(1,2)
write(*,*)nnts(2,1)
write(*,*)nnts(2,2)
end