/***************************************************************************
                 module classe sbcgyre_emps.h  -  description
***************************************************************************/
// Mohamed Berrada
// locean-ipsl.upmc, Paris, Mars 18, 2009
//===========================================================================
//                          methode forward
forward (YREAL x1)
{/*	1	from	sbcgyre_emp    	1  i 	j       t*/
 /*verification calcul
   norm(empY-empF)=7.1047e-11
   norm(empY-empF)/norm(empF)=1.5805e-07
 */
  if(Yt==TU){
    YS1=0.;
  }
  else{
    //      !salinity terms
    YS1=x1;
  }
  //
}

//===========================================================================
//                         methode  backward

backward (YREAL x1)
{
  YJ1I1=0.;  
  
  if(Yt!=TU){
    YJ1I1=1.;
  }
  //
  
}

//===========================================================================
//********************* FIN DU MODULE sbcgyre_emps **********************