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


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

Legend:

Unmodified
Added
Removed
Modified
  • ticket/0842_TRA_TRP

    v7 v8  
    3737Because of space varying of those coef - defining in the code by the use of statement function -  
    3838 
    39 The idea is to multiply the existing coef defining in ldftra_substitute by a factor - raht - which will be equal to 
     39The idea is to multiply the existing coef defining in ldftra_substitute by a factor - rldf - which will be equal to 
    4040 - 1 for active tracers 
    4141 - rn_ahtrc0 / rn_aht0 ( the ratio between passive tracers and active tracers coef.) 
     
    4747!   'key_traldf_c3d' :                 aht: 3D coefficient 
    4848#       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) 
    5249#elif defined key_traldf_c2d 
    5350!   'key_traldf_c2d' :                 aht: 2D coefficient 
    5451#       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) 
    5852#elif defined key_traldf_c1d 
    5953!   'key_traldf_c1d' :                aht: 1D coefficient 
    6054#       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) 
    6455#else 
    6556!   Default option :             aht: Constant coefficient 
    6657#      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 
    7058#endif 
    7159}}}