Hello I develop this subroutine in order to compute fluid dynamic quantities (using conditional statistic)
this is the subroutine :
SUBROUTINE alpha_avg(ie,je,ke,ngen,fvvel,lp_gen,lm_gen,dx_gen,enphampl,delts,ratstr,&
vorv,vorstr,velc)
use nrtype; use gencoms; use...