source: trunk/src/rhd.h @ 64

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

Import initial
  • Property svn:eol-style set to native
File size: 1.1 KB
Line 
1
2/***************************************************************************
3                 module classe rhd.h  -  description
4***************************************************************************/
5// Mohamed Berrada
6// locean-ipsl.upmc, Paris, April 17, 2009
7//===========================================================================
8//                          methode forward
9forward (YREAL x1,YREAL x2)
10{ /*    1       from    tb                      1  i    j    k    t
11        2       from    sb                      1  i    j    k    t*/
12  /* YS1  */
13  /*     7.835114356366673e-16
14         2.331434299545338e-16*/
15  if(Yk==NZ-1){
16    YS1=0.;
17  }
18  else{
19    YS1 = (rbeta* x2 - ralpha * x1 ) * tmask(Yi,Yj,Yk);
20  }
21  //
22}
23
24//===========================================================================
25//                         methode  backward
26
27backward (YREAL x1,YREAL x2)
28{
29  YJ1I1=0.;  YJ1I2=0.;
30  if(Yk==NZ-1){
31    YJ1I1=0.;  YJ1I2=0.;
32  }
33  else{
34    YJ1I1 =  - ralpha * tmask(Yi,Yj,Yk);
35    YJ1I2 =    rbeta * tmask(Yi,Yj,Yk);
36  }
37  //
38 
39}
40
41//===========================================================================
42//**************************  FIN DU MODULE rhd   ***************************
43
Note: See TracBrowser for help on using the repository browser.