source: tags/version-1.1/trunk/src/tgrad.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 tb.h  -  description
3***************************************************************************/
4// Mohamed Berrada
5// locean-ipsl.upmc, Paris, April 2, 2009
6//===========================================================================
7//                          methode forward
8forward (YREAL x1,YREAL x2)
9{ /*    1       from    ta_c                    1  i    j    k
10        2       from    ta_c                    1  i    j    k+1*/
11  YS1=0.;
12#ifdef YE_ta_c
13  if(Yk!=NZ-1) 
14    if(Yi==28 && Yj==12)   YS1 =(x2-x1)/(gdepw_0[Yk+1]-gdepw_0[Yk]);
15#endif
16  //
17}
18//===========================================================================
19//                         methode  backward
20
21backward (YREAL x1,YREAL x2)
22{
23  YJ1I1=0.;     YJ1I2=0.; 
24#ifdef YE_ta_c
25  if(Yk!=NZ-1) 
26    if(Yi==28 && Yj==12)   {
27      YJ1I1 =-1./(gdepw_0[Yk+1]-gdepw_0[Yk]);
28      YJ1I2 = 1./(gdepw_0[Yk+1]-gdepw_0[Yk]);
29    }
30#endif
31
32  //
33}
34
35//===========================================================================
36//***************************  FIN DU MODULE tb   ***************************
37
Note: See TracBrowser for help on using the repository browser.