Changes between Version 6 and Version 7 of ticket/0842_TRA_TRP


Ignore:
Timestamp:
2011-08-02T12:37:45+02:00 (10 years ago)
Author:
cetlod
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • ticket/0842_TRA_TRP

    v6 v7  
    4242 
    4343In the code, we ensure that the 2 coef have the same sign ( < 0 for bilaplacian operator ; > 0 for laplacian operator ) 
     44 
     45{{{ 
     46#if defined key_traldf_c3d 
     47!   'key_traldf_c3d' :                 aht: 3D coefficient 
     48#       define   fsahtt(i,j,k)   rldf * ahtt(i,j,k) 
     49#       define   fsahtu(i,j,k)   rldf * ahtu(i,j,k) 
     50#       define   fsahtv(i,j,k)   rldf * ahtv(i,j,k) 
     51#       define   fsahtw(i,j,k)   rldf * ahtw(i,j,k) 
     52#elif defined key_traldf_c2d 
     53!   'key_traldf_c2d' :                 aht: 2D coefficient 
     54#       define   fsahtt(i,j,k)   rldf * ahtt(i,j) 
     55#       define   fsahtu(i,j,k)   rldf * ahtu(i,j) 
     56#       define   fsahtv(i,j,k)   rldf * ahtv(i,j) 
     57#       define   fsahtw(i,j,k)   rldf * ahtw(i,j) 
     58#elif defined key_traldf_c1d 
     59!   'key_traldf_c1d' :                aht: 1D coefficient 
     60#       define   fsahtt(i,j,k)   rldf * ahtt(k) 
     61#       define   fsahtu(i,j,k)   rldf * ahtu(k) 
     62#       define   fsahtv(i,j,k)   rldf * ahtv(k) 
     63#       define   fsahtw(i,j,k)   rldf * ahtw(k) 
     64#else 
     65!   Default option :             aht: Constant coefficient 
     66#      define   fsahtt(i,j,k)   rldf * aht0 
     67#      define   fsahtu(i,j,k)   rldf * aht0 
     68#      define   fsahtv(i,j,k)   rldf * aht0 
     69#      define   fsahtw(i,j,k)   rldf * aht0 
     70#endif 
     71}}} 
    4472 
    4573'''(3)''' replace 3D T & S arrays by 4D array TS throughout the code [[BR]]