LMDZ
fxy_sin.h
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4 c-----------------------------------------------------------------------
5 c INCLUDE 'fxyprim.h'
6 c
7 c ................................................................
8 c ................ Fonctions in line ...........................
9 c ................................................................
10 c
11  REAL fy, fx, fxprim, fyprim
12  REAL ri, rj
13 c
14 c
15  fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm)))
16  fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj))
17 
18  fx ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* REAL(iim) - 1. )
19 c fx ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* ( REAL(iim) + 1.) )
20  fxprim( ri ) = 2.*pi/REAL(iim)
21 c
22 c
23 c La valeur de pi est passee par le common/const/ou /const2/ .
24 c Sinon, il faut la calculer avant d'appeler ces fonctions .
25 c
26 c ----------------------------------------------------------------
27 c Fonctions a changer eventuellement, selon x(x) et y(y) choisis .
28 c -----------------------------------------------------------------
29 c
30 c ..... ici, on a l'application particuliere suivante ........
31 c
32 c **************************************
33 c ** x = 2. * pi/iim * X **
34 c ** y = pi/jjm * Y **
35 c **************************************
36 c
37 c ..................................................................
38 c ..................................................................
39 c
40 c
41 c
42 c-----------------------------------------------------------------------
ri
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fyprim REAL ri
Definition: fxy_sin.h:11
fx
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fx
Definition: fxy_sin.h:11
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
l
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO kmaxm1 DO l
Definition: calcul_REGDYN.h:13
fy
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fy
Definition: fxy_sin.h:11
pi
!$Id mode_top_bound COMMON comconstr && pi
Definition: comconst.h:7
x
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fyprim REAL rj c c il faut la calculer avant d appeler ces fonctions c c c Fonctions a changer selon x(x) et y(y) choisis.c-----------------------------------------------------------------c c.....ici
rj
!$Header!c REAL ripx REAL rj
Definition: fxy_new.h:6
fxprim
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fxprim
Definition: fxy_sin.h:11
iim
c c zjulian c cym CALL iim cym klev iim
Definition: ini_bilKP_ave.h:24
fyprim
!$Header!c REAL ripx REAL fyprim
Definition: fxy_new.h:6
radiation_ar4_param::d
real(kind=8), dimension(2, 3), parameter d
Definition: radiation_ar4_param.F90:211
de
do llm!au dessus de
Definition: 1D_nudge_sandu_astex.h:1
eventuellement
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fyprim REAL rj c c il faut la calculer avant d appeler ces fonctions c c c Fonctions a changer eventuellement
Definition: fxy_sin.h:27