source: tags/version-1.1/trunk/src/zdfmxl_hmld.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.0 KB
Line 
1
2/***************************************************************************
3                 module classe zdfmxl_hmld.h  -  description
4***************************************************************************/
5// Mohamed Berrada
6// locean-ipsl.upmc, Paris, Mars 25, 2009
7//===========================================================================
8//                          methode forward
9forward ()
10{/*     1..NZ   from    zdf_avt_avmu_avmv       1  i    j   1..NZ  t*/
11  //verification calcul exact (F<--->Y)
12  if(Yt==TU)
13    YS1=0.;
14  else{
15    int imld=0;
16    for(int k=NZ-1;k>0;k--)
17      if(Yting[k]<avt_c) imld=k;
18   
19    YS1 = fsdepw(Yi,Yj,imld)*tmask(Yi,Yj,0);
20  }
21  //
22}
23
24//===========================================================================
25//                         methode  backward
26
27backward ()
28{/*     1..NZ   from    zdf_avt_avmu_avmv       1  i    j   1..NZ  t*/
29 
30}
31
32//===========================================================================
33//************************* FIN DU MODULE zdfmxl_hmld *************************
34
Note: See TracBrowser for help on using the repository browser.