source: trunk/src/gcx2.h @ 45

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

test du solsor jb
  • Property svn:eol-style set to native
File size: 981 bytes
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    //    YS1=gcx(Yi,Yj);
20               YS1=  x1;
21  //
22}
23
24//===========================================================================
25//                         methode  backward
26
27backward (YREAL x)
28{
29  if(Yt==TU){
30    YJ1I1=0;
31   //    YS1=0.;
32  }
33  else
34    //    YS1=gcx(Yi,Yj);
35    YJ1I1=1;
36  //
37}
38
39
40  //===========================================================================
41//*************************  FIN DU MODULE gcxx   *************************
42
Note: See TracBrowser for help on using the repository browser.