source: trunk/src/sbcgyre_emps.h @ 186

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

Import initial
  • Property svn:eol-style set to native
File size: 1011 bytes
Line 
1
2/***************************************************************************
3                 module classe sbcgyre_emps.h  -  description
4***************************************************************************/
5// Mohamed Berrada
6// locean-ipsl.upmc, Paris, Mars 18, 2009
7//===========================================================================
8//                          methode forward
9forward (YREAL x1)
10{/*     1       from    sbcgyre_emp     1  i    j       t*/
11 /*verification calcul
12   norm(empY-empF)=7.1047e-11
13   norm(empY-empF)/norm(empF)=1.5805e-07
14 */
15  if(Yt==TU){
16    YS1=0.;
17  }
18  else{
19    //      !salinity terms
20    YS1=x1;
21  }
22  //
23}
24
25//===========================================================================
26//                         methode  backward
27
28backward (YREAL x1)
29{
30  YJ1I1=0.; 
31 
32  if(Yt!=TU){
33    YJ1I1=1.;
34  }
35  //
36 
37}
38
39//===========================================================================
40//********************* FIN DU MODULE sbcgyre_emps **********************
41
Note: See TracBrowser for help on using the repository browser.