source: tags/version-1.1/trunk/src/rhop.h @ 24

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

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