Rewrite user defined boundary condition from Fortran to C
Posted: Sat Sep 04, 2021 3:38 pm
Hello everyone,
So far I've used "cs_user_boundary_condition.f90" to set up the pressure intlet boundary condition;
For other subroutines, I am using "C" files such as "cs_user_initialization.c" and "cs_user_parameters.c".
Therefore, I want to rewrite "cs_user_boundary_condition.f90" to "cs_user_boundary_condition.c" to be consiste with C, not Fortran.
It looks like that coding C in "cs_user_boundary_condition.c" is more complicated than that of Fortran ("cs_user_boundary_condition.f90").
Although I checked "cs_user_boundary_condition-notebook.c", I am confused by new words, which I have never seen in CodeSaturn so far.
Is there other samples of conding or guides?
Best regards,
Tsubasa
So far I've used "cs_user_boundary_condition.f90" to set up the pressure intlet boundary condition;
Code: Select all
call getfbr('inlet', nlelt, lstelt)
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
itypfb(ifac) = ientre
!Dirichlet B.C for pressure:
icodcl(ifac,ipr) = 1
rcodcl(ifac,ipr,1) = 101325.633
!Neumann B.C for velocity:
icodcl(ifac,iu)= 3
icodcl(ifac,iv)= 3
icodcl(ifac,iw)= 3
enddo
call getfbr('outlet', nlelt, lstelt)
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
itypfb(ifac) = isolib
!Dirichlet B.C for pressure:
icodcl(ifac,ipr) = 1
rcodcl(ifac,ipr,1) = 101325.000
!Neumann B.C for velocity:
icodcl(ifac,iu)= 3
icodcl(ifac,iv)= 3
icodcl(ifac,iw)= 3
enddo
Therefore, I want to rewrite "cs_user_boundary_condition.f90" to "cs_user_boundary_condition.c" to be consiste with C, not Fortran.
It looks like that coding C in "cs_user_boundary_condition.c" is more complicated than that of Fortran ("cs_user_boundary_condition.f90").
Although I checked "cs_user_boundary_condition-notebook.c", I am confused by new words, which I have never seen in CodeSaturn so far.
Is there other samples of conding or guides?
Best regards,
Tsubasa