source: tags/version-1.1/trunk/src/ta_de_trazdf_imp.h @ 24

Last change on this file since 24 was 10, checked in by jbrlod, 13 years ago

design a reference version

  • Property svn:eol-style set to native
File size: 1.4 KB
Line 
1
2/***************************************************************************
3                 module classe ta_de_trazdf_imp.h  -  description
4***************************************************************************/
5// Mohamed Berrada
6// locean-ipsl.upmc, Paris, April 17, 2009
7//===========================================================================
8//                          methode forward
9forward (YREAL x1,YREAL x2,YREAL x3,YREAL x4)
10{ /*    1       from    zwisd_trazdf_imp        1  i    j    k    t
11        2       from    ta_de_trazdf_imp        1  i    j    k-1  t
12        3       from    zrhs_trazdf_imp         1  i    j    k    t
13        4       from    zwt_trazdf_imp          1  i    j    k-1  t*/
14  /* YS1 */
15  /*     4.384959433157585e-05
16         2.134224909062430e-08*/
17 if (Yi==30 && Yj==1 && Yt==16)
18  {
19      printf("Yi=%i,Yj=%i,Yk=%i,Yt=%i,,x1=%f,x2=%f,x3=%f,x4=%f\n",Yk,x1,x2,x3,x4);
20      } 
21
22if(Yt==TU)
23    YS1=0.;
24  else{
25    if(Yi==0 || Yi==NX-1 || Yj==0 || Yj==NY-1){
26      YS1=0.;
27    }
28    else{
29      if(Yk==0)
30        YS1= x3;
31      else
32        YS1=x3-x1*x2/x4;
33    }
34  }
35  //
36}
37
38//===========================================================================
39//                         methode  backward
40
41backward (YREAL x1,YREAL x2,YREAL x3,YREAL x4)
42{
43  //clonol 
44}
45
46  //===========================================================================
47//*************************  FIN DU MODULE ta_de_trazdf_imp   *************************
48
Note: See TracBrowser for help on using the repository browser.