/***********************************************************************
   vprofile.c                                                          
   UDF for specifying steady-state velocity profile boundary condition 
************************************************************************/
#include "udf.h"


DEFINE_PROFILE(inlet_x_nap_lam, thread, position) 
{
  face_t f;
  begin_f_loop(f, thread)
    {
      F_PROFILE(f, thread, position) =0.5*C_U(f,thread);
    }
  end_f_loop(f, thread)
}

DEFINE_PROFILE(inlet_y_nap_lam, thread, position) 
{
  face_t f;
  begin_f_loop(f, thread)
    {
      F_PROFILE(f, thread, position) =0.5*C_V(f,thread);
    }
  end_f_loop(f, thread)
}

DEFINE_PROFILE(inlet_z_nap_lam, thread, position) 
{
  face_t f;
  begin_f_loop(f, thread)
    {
      F_PROFILE(f, thread, position) =0.5*C_W(f,thread);
    }
  end_f_loop(f, thread)
}