research/dns-hit3d-fdm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

write_vel_max now takes arguments instead of access to m_fdm_calc

Browse source
This commit is contained in:
ignis 2014-07-15 21:30:22 +09:00
parent 949fbe102d
commit e2f1d52c4f
3 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
io_write_4.f90
View file

@ -57,6 +57,19 @@ subroutine io_write_4
tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,3) tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,3)
call gather_tmp4 (w_) call gather_tmp4 (w_)
if (myid.eq.master) then
umax = maxval(u_(1:nx,1:ny,1:nz_all))
umin = minval(u_(1:nx,1:ny,1:nz_all))
vmax = maxval(v_(1:nx,1:ny,1:nz_all))
vmin = minval(v_(1:nx,1:ny,1:nz_all))
wmax = maxval(w_(1:nx,1:ny,1:nz_all))
wmin = minval(w_(1:nx,1:ny,1:nz_all))
call write_vel_max ( umax,vmax,wmax,umin,vmin,wmin )
endif
! scalars ! scalars
if (int_scalars) then if (int_scalars) then
do n = 1,n_scalars do n = 1,n_scalars

2
m_fdm_calc.f90
View file

@ -307,7 +307,7 @@ module m_fdm_calc
write(*,*) '==========================================================' write(*,*) '=========================================================='
write(*,*) write(*,*)
call write_vel_max call write_vel_max ( umax,vmax,wmax,umin,vmin,wmin )
return return

4
write_stats.f90
View file

@ -88,10 +88,10 @@ subroutine write_model_spectrum
enddo enddo
end subroutine write_model_spectrum end subroutine write_model_spectrum
subroutine write_vel_max subroutine write_vel_max (umax,vmax,wmax,umin,vmin,wmin)
use m_parameters use m_parameters
use m_fdm_calc
implicit none implicit none
real*8 :: umax,vmax,wmax,umin,vmin,wmin
write(tp_max_min_uvw,'(f12.6,6e18.8)')time,umax,vmax,wmax,umin,vmin,wmin write(tp_max_min_uvw,'(f12.6,6e18.8)')time,umax,vmax,wmax,umin,vmin,wmin
end subroutine write_vel_max end subroutine write_vel_max