source: trunk/src/zdfmxl_nmln_hmlp_hmlpt.h @ 49

Last change on this file since 49 was 1, checked in by jbrlod, 13 years ago

Import initial
  • Property svn:eol-style set to native
File size: 1.1 KB
Line 
1
2/***************************************************************************
3                 module classe zdfmxl_nmln_hmlp_hmlpt.h  -  description
4***************************************************************************/
5// Mohamed Berrada
6// locean-ipsl.upmc, Paris, Mars 25, 2009
7//===========================================================================
8//                          methode forward
9forward ()
10{/*     1..NZ   from    rhop                    1  i    j   1..NZ  t-2*/
11  // verification calcul exact April 9, 2009
12  if(Yt==TU)
13    YS1=0.;
14  else{
15    int nmln=mbathy(Yi,Yj)+2;
16    for(int k=NZ-2;k>0;k--)
17      if ( Yting[k] > Yting[0] + rho_c )   nmln = k+1;
18    YS1 = nmln;
19    YS2 = fsdepw(Yi,Yj,nmln-1) * tmask(Yi,Yj,0);
20    YS3 = fsdept(Yi,Yj,nmln-2);
21  }
22  //
23}
24
25//===========================================================================
26//                         methode  backward
27
28backward ()
29{/*     1..NZ   from    rhop                    1  i    j   1..NZ  t-2*/
30 
31}
32
33//===========================================================================
34//*********************** FIN DU MODULE zdfmxl_nmln_hmlp_hmlpt *********************
35
Note: See TracBrowser for help on using the repository browser.