/***************************************************************************
                 module classe zdfmxl_hmld.h  -  description
***************************************************************************/
// Mohamed Berrada
// locean-ipsl.upmc, Paris, Mars 25, 2009
//===========================================================================
//                          methode forward
forward ()
{/* 	1..NZ	from	zdf_avt_avmu_avmv	1  i 	j   1..NZ  t*/
  //verification calcul exact (F<--->Y)
  if(Yt==TU)
    YS1=0.;
  else{
    int imld=0;
    for(int k=NZ-1;k>0;k--)
      if(Yting[k]<avt_c) imld=k;
    
    YS1 = fsdepw(Yi,Yj,imld)*tmask(Yi,Yj,0);
  }
  //
}

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

backward ()
{/* 	1..NZ	from	zdf_avt_avmu_avmv	1  i 	j   1..NZ  t*/
  
}

//===========================================================================
//************************* FIN DU MODULE zdfmxl_hmld *************************