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