Translation of the "itypfb(*, *) = icscpl" condition.  
More...
|  | 
| subroutine | csc2cl (nvcp, nvcpto, nfbcpl, nfbncp, icodcl, itypfb, lfbcpl, lfbncp, dt, rcodcl, rvcpfb, pndcpl, dofcpl) | 
|  | 
| subroutine | csc2cl_init (nvcp, nfbcpl, nfbncp, icodcl, itypfb, lfbcpl, lfbncp) | 
|  | Initialization of the "itypfb(*, *) = icscpl" condition.  More... 
 | 
|  | 
Translation of the "itypfb(*, *) = icscpl" condition. 
◆ csc2cl()
      
        
          | subroutine csc2cl | ( | integer | nvcp, | 
        
          |  |  | integer | nvcpto, | 
        
          |  |  | integer | nfbcpl, | 
        
          |  |  | integer | nfbncp, | 
        
          |  |  | integer, dimension(nfabor,nvar) | icodcl, | 
        
          |  |  | integer, dimension(nfabor) | itypfb, | 
        
          |  |  | integer, dimension(nfbcpl) | lfbcpl, | 
        
          |  |  | integer, dimension(nfbncp) | lfbncp, | 
        
          |  |  | double precision, dimension(ncelet) | dt, | 
        
          |  |  | double precision, dimension(nfabor,nvar,3) | rcodcl, | 
        
          |  |  | double precision, dimension(nfbcpl,nvcpto) | rvcpfb, | 
        
          |  |  | double precision, dimension(nfbcpl) | pndcpl, | 
        
          |  |  | double precision, dimension(3,nfbcpl) | dofcpl | 
        
          |  | ) |  |  | 
      
 
- Parameters
- 
  
    | [in] | nvc | number of variable coupled (ordered by id?) |  | [in] | nvcpto | number of variable coupled (9 in this case) |  | [in] | nfbcpl |  |  | [in] | nfbncp |  |  | [out] | icodcl | face boundary condition code: 
1 Dirichlet2 Radiative outlet3 Neumann4 sliding and 5 smooth wall and 6 rough wall and 9 free inlet/outlet (input mass flux blocked to 0)13 Dirichlet for the advection operator and Neumann for the diffusion operator  |  | [in] | lfbcpl |  |  | [in] | lfbncp |  |  | [out] | itypfb | boundary face types |  | [in] | dt | time step (per cell) |  | [out] | rcodcl | boundary condition values: 
rcodcl(1) value of the dirichletrcodcl(2) value of the exterior exchange coefficient (infinite if no exchange)rcodcl(3) value flux density (negative if gain) in w/m2 or roughness in m if icodcl=6
for the velocity for the pressure for a scalar   |  | [in] | rvcpfb |  |  | [in] | pndcpl |  |  | [in] | dofcpl |  |  
 
 
 
◆ csc2cl_init()
      
        
          | subroutine csc2cl_init | ( | integer | nvcp, | 
        
          |  |  | integer | nfbcpl, | 
        
          |  |  | integer | nfbncp, | 
        
          |  |  | integer, dimension(nfabor,nvar) | icodcl, | 
        
          |  |  | integer, dimension(nfabor) | itypfb, | 
        
          |  |  | integer, dimension(nfbcpl) | lfbcpl, | 
        
          |  |  | integer, dimension(nfbncp) | lfbncp | 
        
          |  | ) |  |  |