source: trunk/src/gcx2.h @ 53

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

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