/***************************************************************************
                 module classe tb.h  -  description
***************************************************************************/
// Mohamed Berrada
// locean-ipsl.upmc, Paris, April 2, 2009
//===========================================================================
//                          methode forward
forward (YREAL x1,YREAL x2)
{ /*	1	from	ta_c			1  i 	j    k
	2	from	ta_c			1  i 	j    k+1*/
  YS1=0.;
#ifdef YE_ta_c
  if(Yk!=NZ-1) 
    if(Yi==28 && Yj==12)   YS1 =(x2-x1)/(gdepw_0[Yk+1]-gdepw_0[Yk]);
#endif
  //
}
//===========================================================================
//                         methode  backward

backward (YREAL x1,YREAL x2)
{
  YJ1I1=0.;     YJ1I2=0.; 
#ifdef YE_ta_c
  if(Yk!=NZ-1) 
    if(Yi==28 && Yj==12)   {
      YJ1I1 =-1./(gdepw_0[Yk+1]-gdepw_0[Yk]);
      YJ1I2 = 1./(gdepw_0[Yk+1]-gdepw_0[Yk]);
    }
#endif

  //
}

//===========================================================================
//***************************  FIN DU MODULE tb   ***************************