source: trunk/src/gcx2.h @ 101

Last change on this file since 101 was 70, checked in by berrada, 13 years ago

fusion mb-branche dans tronc
File size: 1.0 KB
Line 
1
2/***************************************************************************
3                 module classe gcxx.h  -  description
4***************************************************************************/
5// Mohamed Berrada
6// locean-ipsl.upmc, Paris, April 28, 2009
7//===========================================================================
8//                          methode forward
9forward (YREAL x1)
10{ 
11  /* YS1  */
12  /*     A
13         R */ 
14  if(Yt==TU){
15     YS1=gcx_at_TU(Yi,Yj);
16   //    YS1=0.;
17  }
18  else
19#ifdef K_SOLSORYAO
20   YS1=  x1;
21#else
22               YS1=gcx(Yi,Yj);
23#endif
24  //
25}
26
27//===========================================================================
28//                         methode  backward
29
30backward (YREAL x)
31{
32#ifdef K_SOLSORYAO
33  if(Yt==TU){
34    YJ1I1=0;
35   //    YS1=0.;
36  }
37  else
38    //    YS1=gcx(Yi,Yj);
39    YJ1I1=1;
40  //
41#endif
42}
43
44
45  //===========================================================================
46//*************************  FIN DU MODULE gcxx   *************************
47
Note: See TracBrowser for help on using the repository browser.