LMDZ
fxy_reg.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 ) = pi/REAL(jjm) * ( 0.5 * REAL(jjm) + 1. - rj )
16  fyprim( rj ) = pi/REAL(jjm)
17 
18 c fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm)))
19 c fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj))
20 
21  fx ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* REAL(iim) - 1. )
22 c fx ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* ( REAL(iim) + 1.) )
23  fxprim( ri ) = 2.*pi/REAL(iim)
24 c
25 c
26 c La valeur de pi est passee par le common/const/ou /const2/ .
27 c Sinon, il faut la calculer avant d'appeler ces fonctions .
28 c
29 c ----------------------------------------------------------------
30 c Fonctions a changer eventuellement, selon x(x) et y(y) choisis .
31 c -----------------------------------------------------------------
32 c
33 c ..... ici, on a l'application particuliere suivante ........
34 c
35 c **************************************
36 c ** x = 2. * pi/iim * X **
37 c ** y = pi/jjm * Y **
38 c **************************************
39 c
40 c ..................................................................
41 c ..................................................................
42 c
43 c
44 c
45 c-----------------------------------------------------------------------
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
pi
!$Id mode_top_bound COMMON comconstr && pi
Definition: comconst.h:7
fy
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fy
Definition: fxy_reg.h:11
fxprim
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fxprim
Definition: fxy_reg.h:11
rj
!$Header!c REAL ripx REAL rj
Definition: fxy_new.h:6
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_reg.h:30
fx
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fx
Definition: fxy_reg.h:11
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
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
ri
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fyprim REAL ri
Definition: fxy_reg.h:11