Last change
on this file since 167 was
1,
checked in by jbrlod, 13 years ago
|
Import initial
|
-
Property svn:eol-style set to
native
|
File size:
1.1 KB
|
Rev | Line | |
---|
[1] | 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 |
---|
| 9 | forward () |
---|
| 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 | |
---|
| 28 | backward () |
---|
| 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.