/***************************************************************************
                 module classe wa.h  -  description
***************************************************************************/
// Mohamed Berrada
// locean-ipsl.upmc, Paris, April 27, 2009
//===========================================================================
//                          methode forward
forward (YREAL x1,YREAL x2)
{ /*	1	from	wa			1  i 	j    k+1  t
	2	from	hdivn			1  i 	j    k    t*/

  //if(Yt==TU && Yk==NZ-1)
  /* if(Yt==TU)
    YS1=0.;
    else{*/
    if( Yk==NZ-1)
      YS1=0.;
    else
      YS1 = x1 - fse3t(Yi,Yj,Yk) * x2;
    //  }
  //
}
//===========================================================================
//                         methode  backward

backward (YREAL x1,YREAL x2)
{
  YJ1I1=0.;     YJ1I2=0.; 
  
  //  if(Yt!=TU){
    if( Yk==NZ-1){
      YJ1I1=0.;     YJ1I2=0.; 
    }
    else{
      YJ1I1=1.;
      YJ1I2=- fse3t(Yi,Yj,Yk);
    }
    // }
  //  
}

  //===========================================================================
//*************************  FIN DU MODULE wa   *************************