/dports/science/ascent/ascent-0.7.1-66-gbcf2742a/src/examples/proxies/cloverleaf3d-ref/ |
H A D | viscosity_kernel.f90 | 39 yvel0, & argument 54 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 81 vgradx1=yvel0(j ,k ,l )+yvel0(j ,k+1,l )+yvel0(j ,k ,l+1)+yvel0(j ,k+1,l+1) 82 vgradx2=yvel0(j+1,k ,l )+yvel0(j+1,k+1,l )+yvel0(j+1,k ,l+1)+yvel0(j+1,k+1,l+1) 83 vgrady1=yvel0(j ,k ,l )+yvel0(j+1,k ,l )+yvel0(j ,k ,l+1)+yvel0(j+1,k ,l+1) 84 vgrady2=yvel0(j ,k+1,l )+yvel0(j+1,k+1,l )+yvel0(j ,k+1,l+1)+yvel0(j+1,k+1,l+1) 85 vgradz1=yvel0(j ,k ,l )+yvel0(j+1,k ,l )+yvel0(j ,k+1,l )+yvel0(j+1,k+1,l ) 86 vgradz2=yvel0(j ,k ,l+1)+yvel0(j+1,k ,l+1)+yvel0(j ,k+1,l+1)+yvel0(j+1,k+1,l+1)
|
H A D | PdV_kernel.f90 | 43 yvel0, & argument 63 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 88 …bottom_flux=(yarea(j ,k ,l )*(yvel0(j ,k ,l )+yvel0(j+1,k ,l )+yvel0(j ,k ,l+1)+yvel0(j+… 89 … +yvel0(j ,k ,l )+yvel0(j+1,k ,l )+yvel0(j ,k ,l+1)+yvel0(j+1,k ,l+1))) & 91 …top_flux= (yarea(j ,k+1,l )*(yvel0(j ,k+1,l )+yvel0(j+1,k+1,l )+yvel0(j ,k+1,l+1)+yvel0(j+… 92 … +yvel0(j ,k+1,l )+yvel0(j+1,k+1,l )+yvel0(j ,k+1,l+1)+yvel0(j+1,k+1,l+1))) & 136 …bottom_flux=(yarea(j ,k ,l )*(yvel0(j ,k ,l )+yvel0(j+1,k ,l )+yvel0(j ,k ,l+1)+yvel0(j+… 139 …top_flux= (yarea(j ,k+1,l )*(yvel0(j ,k+1,l )+yvel0(j+1,k+1,l )+yvel0(j ,k+1,l+1)+yvel0(j+…
|
H A D | calc_dt_kernel.f90 | 50 xvel0,yvel0,zvel0, & argument 82 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 119 … dv1=(yvel0(j ,k ,l )+yvel0(j+1,k ,l )+yvel0(j ,k ,l+1)+yvel0(j+1,k ,l+1))*yarea(j,k,l) 120 … dv2=(yvel0(j ,k+1,l )+yvel0(j+1,k+1,l )+yvel0(j ,k+1,l+1)+yvel0(j+1,k+1,l+1))*yarea(j,k,l) 171 WRITE(0,*) xvel0(jldt ,kldt ,lldt ),yvel0(jldt ,kldt ,lldt ),zvel0(jldt ,kldt ,lldt ) 172 WRITE(0,*) xvel0(jldt+1,kldt ,lldt ),yvel0(jldt+1,kldt ,lldt ),zvel0(jldt ,kldt ,lldt ) 173 WRITE(0,*) xvel0(jldt+1,kldt+1,lldt ),yvel0(jldt+1,kldt+1,lldt ),zvel0(jldt ,kldt ,lldt ) 174 WRITE(0,*) xvel0(jldt ,kldt+1,lldt ),yvel0(jldt ,kldt+1,lldt ),zvel0(jldt ,kldt ,lldt ) 175 WRITE(0,*) xvel0(jldt ,kldt ,lldt+1),yvel0(jldt ,kldt ,lldt+1),zvel0(jldt ,kldt ,lldt+1) 176 WRITE(0,*) xvel0(jldt+1,kldt ,lldt+1),yvel0(jldt+1,kldt ,lldt+1),zvel0(jldt ,kldt ,lldt+1) [all …]
|
H A D | flux_calc_kernel.f90 | 31 yvel0, & argument 47 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 74 *(yvel0(j,k,l)+yvel0(j+1,k,l)+yvel0(j,k,l+1)+yvel0(j+1,k,l+1) &
|
H A D | generate_chunk_kernel.f90 | 40 yvel0, & argument 70 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 128 yvel0(j,k,l)=state_yvel(1) 164 yvel0(jt,kt,lt)=state_yvel(state) 181 yvel0(jt,kt,lt)=state_yvel(state) 195 yvel0(jt,kt,lt)=state_yvel(state)
|
H A D | field_summary_kernel.f90 | 33 yvel0, & argument 43 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+2) :: xvel0,yvel0,zvel0 local 64 vsqrd=vsqrd+0.125*(xvel0(jv,kv,lv)**2+yvel0(jv,kv,lv)**2+zvel0(jv,kv,lv)**2)
|
H A D | reset_field_kernel.f90 | 34 yvel0, & argument 44 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 84 yvel0(j,k,l)=yvel1(j,k,l)
|
H A D | update_halo_kernel.f90 | 42 yvel0, & argument 62 REAL(KIND=8), DIMENSION(x_min-2:x_max+3,y_min-2:y_max+3,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 733 yvel0(j,1-k,l)=-yvel0(j,1+k,l) 744 yvel0(j,y_max+1+k,l)=-yvel0(j,y_max+1-k,l) 755 yvel0(1-j,k,l)=yvel0(1+j,k,l) 766 yvel0(x_max+1+j,k,l)=yvel0(x_max+1-j,k,l) 777 yvel0(j,k,1-l)=yvel0(j,k,1+l) 788 yvel0(j,k,z_max+1+l)=yvel0(j,k,z_max+1-l)
|
H A D | accelerate_kernel.f90 | 34 yvel0, & argument 53 REAL(KIND=8), DIMENSION(x_min-2:x_max+3 ,y_min-2:y_max+3 ,z_min-2:z_max+3) :: xvel0,yvel0,zvel0 local 103 …yvel1(j,k,l)=yvel0(j,k,l)-stepbymass(j,k,l)*(yarea(j ,k ,l )*(pressure(j ,k ,l )-pressure(j …
|
H A D | viscosity.f90 | 57 chunks(c)%field%yvel0, &
|
H A D | reset_field.f90 | 55 chunks(c)%field%yvel0, &
|
H A D | flux_calc.f90 | 54 chunks(c)%field%yvel0, &
|
H A D | visit.F90 | 190 …e_set_path_external_float64_ptr(sim_data,"fields/velocity/values/y", chunks(c)%field%yvel0, nnodes) 297 … IF(ABS(chunks(c)%field%yvel0(j,k,l)).GT.0.00000001) temp_var=chunks(c)%field%yvel0(j,k,l)
|
H A D | accelerate.f90 | 58 chunks(c)%field%yvel0, &
|
H A D | update_halo.f90 | 58 chunks(c)%field%yvel0, &
|
H A D | calc_dt.f90 | 80 chunks(chunk)%field%yvel0, &
|
H A D | PdV.f90 | 74 chunks(c)%field%yvel0, &
|
H A D | definitions.f90 | 133 REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE :: yvel0,yvel1 component
|
H A D | field_summary.f90 | 71 chunks(c)%field%yvel0, &
|
H A D | generate_chunk.f90 | 68 chunks(chunk)%field%yvel0, &
|
H A D | build_field.f90 | 71 ALLOCATE(chunks(chunk)%field%yvel0(chunks(chunk)%field%x_min-2:chunks(chunk)%field%x_max+3, & 173 chunks(chunk)%field%yvel0=0.0
|
H A D | clover.F90 | 592 chunks(chunk)%field%yvel0, & 914 chunks(chunk)%field%yvel0, & 1210 chunks(chunk)%field%yvel0, & 1532 chunks(chunk)%field%yvel0, & 1827 chunks(chunk)%field%yvel0, & 2149 chunks(chunk)%field%yvel0, & 2444 chunks(chunk)%field%yvel0, & 3060 chunks(chunk)%field%yvel0, & 3381 chunks(chunk)%field%yvel0, & 3676 chunks(chunk)%field%yvel0, & [all …]
|