source: tags/version-1.1/trunk/src/wa.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: 1.1 KB
Line 
1/***************************************************************************
2                 module classe wa.h  -  description
3***************************************************************************/
4// Mohamed Berrada
5// locean-ipsl.upmc, Paris, April 27, 2009
6//===========================================================================
7//                          methode forward
8forward (YREAL x1,YREAL x2)
9{ /*    1       from    wa                      1  i    j    k+1  t
10        2       from    hdivn                   1  i    j    k    t*/
11
12  //if(Yt==TU && Yk==NZ-1)
13  /* if(Yt==TU)
14    YS1=0.;
15    else{*/
16    if( Yk==NZ-1)
17      YS1=0.;
18    else
19      YS1 = x1 - fse3t(Yi,Yj,Yk) * x2;
20    //  }
21  //
22}
23//===========================================================================
24//                         methode  backward
25
26backward (YREAL x1,YREAL x2)
27{
28  YJ1I1=0.;     YJ1I2=0.; 
29 
30  //  if(Yt!=TU){
31    if( Yk==NZ-1){
32      YJ1I1=0.;     YJ1I2=0.; 
33    }
34    else{
35      YJ1I1=1.;
36      YJ1I2=- fse3t(Yi,Yj,Yk);
37    }
38    // }
39  // 
40}
41
42  //===========================================================================
43//*************************  FIN DU MODULE wa   *************************
44
Note: See TracBrowser for help on using the repository browser.