source: trunk/LMDZ.PLUTO.old/libf/grid/fxy_sin.h @ 3446

Last change on this file since 3446 was 3175, checked in by emillour, 11 months ago

Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
  • Property svn:executable set to *
File size: 1.5 KB
Line 
1c-----------------------------------------------------------------------
2c INCLUDE 'fxyprim.h'
3c
4c    ................................................................
5c    ................  Fonctions in line  ...........................
6c    ................................................................
7c
8      REAL  fy, fx, fxprim, fyprim
9      REAL  ri, rj
10c
11c
12      fy(rj)=ASIN(1.+2.*((1.-rj)/FLOAT(jjm)))
13      fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj))
14
15      fx    ( ri ) = 2.*pi/FLOAT(iim) * ( ri - 0.5*  FLOAT(iim) - 1. )
16c     fx    ( ri ) = 2.*pi/FLOAT(iim) * ( ri - 0.5* ( FLOAT(iim) + 1.) )
17      fxprim( ri ) = 2.*pi/FLOAT(iim)
18c
19c
20c    La valeur de pi est passee par le common/const/ou /const2/ .
21c    Sinon, il faut la calculer avant d'appeler ces fonctions .
22c
23c   ----------------------------------------------------------------
24c     Fonctions a changer eventuellement, selon x(x) et y(y) choisis .
25c   -----------------------------------------------------------------
26c
27c    .....  ici, on a l'application particuliere suivante   ........
28c
29c                **************************************
30c                **     x = 2. * pi/iim *  X         **
31c                **     y =      pi/jjm *  Y         **
32c                **************************************
33c
34c   ..................................................................
35c   ..................................................................
36c
37c
38c
39c-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.