Searched refs:pi (Results 1 – 25 of 25) sorted by relevance
15 PresSin=PresAmp*sin(two*pi*PresFreq*((lstep-tsBase)+1)*Delt(1)) ! pressure disturbance18 Alpha=AlphaAmp*sin(two*pi*AlphaFreq*((lstep-tsBase)+1)*Delt(1)) ! pressure disturbance33 BC(kk,3)=VelBase*cos((pi/180)*Alpha)34 BC(kk,4)=VelBase*sin((pi/180)*Alpha)
126 & (sin(pi*Sclr(i)/epsilon_ls))/pi )181 & (sin(pi*Sclr(i)/epsilon_ls))/pi )280 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
71 & (sin(pi*Sclr/epsilon_ls))/pi )
424 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,1)426 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,2) 428 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,3)
515 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
454 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
140 pi=3.1415926535142 angtol=sin(angtol*(pi/180))
424 Window(j) = 0.42+0.5*cos(2*pi*Filtime(j)/nptf)425 & +0.08*cos(4*pi*Filtime(j)/nptf)426 Sinc(j) = sin(pi*Filtime(j)*windK/nptf)/sin(pi*Filtime(j)/nptf)
260 & + cos(pi*Sclrtmp(i)/epsilon_tmp))
155 vmagref = 0.5*(vmax - vmin)*sin(2*pi*t) + 0.5*(vmax + vmin)
174 s0sh(i) = Rh * ( pt5*( log( (two*pi*Msh(i)/(Nh*Planck**2))**3
84 #define pi 3.1415926535897932384626433832795d0 macro
297 & pi = 3.1415926535897932384626433832795d0,
18 …r_time_factor = r_amp*sin(two*pi*r_freq*(lstep+1)*Delt(1)) ! BC set for next time step - all phase…
29 Stheta = dpdz * sin(0.5*pi*rP5)541 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
58 & (sin(pi*Sclr(i)/epsilon_ls))/pi )
220 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,1)222 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,2) 224 & + cos(pi*Sclr(i)/epsilon_ls)) * gyti(i,3)
81 #define pi 3.1415926535897932384626433832795d0 macro
255 & pi = 3.1415926535897932384626433832795d0)
256 & pi = 3.1415926535897932384626433832795d0)
29 Stheta = dpdz * sin(0.5*pi*rP5)517 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi
29 Stheta = dpdz * sin(0.5*pi*rP5)503 & + sin(pi*sclr_ls(ii)/epsilon_ls)/pi