LMDZ
fxy_new.h
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4 c--------------------------------------------------------------
5  REAL ripx
6  REAL fx,fxprim,fy,fyprim,ri,rj,bigy
7 c
8 c....stretching in x...
9 c
10  ripx( ri )= (ri-1.0) *2.*pi/REAL(iim)
11  fx ( ri )= ripx(ri) + transx +
12  * alphax * SIN( ripx(ri)+transx-pxo ) - pi
13  fxprim(ri) = 2.*pi/REAL(iim) *
14  * ( 1.+ alphax * COS( ripx(ri)+transx-pxo ) )
15 
16 c....stretching in y...
17 c
18  bigy(rj) = 2.* (REAL(jjp1)-rj ) *pi/jjm
19  fy(rj) = ( bigy(rj) + transy +
20  * alphay * SIN( bigy(rj)+transy-pyo ) ) /2. - pi/2.
21  fyprim(rj) = ( pi/jjm ) * ( 1.+
22  * alphay * COS( bigy(rj)+transy-pyo ) )
23 
24 c fy(rj)= pyo-pisjjm*(rj-transy)+coefalpha*SIN(depisjm*(rj-
25 c * transy ))
26 c fyprim(rj)= pisjjm-pisjjm*coefy2* COS(depisjm*(rj-transy))
27 c--------------------------------------------------------------
alphax
!$Header!c!c!c include serre h!c REAL alphax
Definition: serre.h:8
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
fy
!$Header!c REAL ripx REAL fy
Definition: fxy_new.h:6
fx
!$Header!c REAL ripx REAL fx
Definition: fxy_new.h:6
pi
!$Id mode_top_bound COMMON comconstr && pi
Definition: comconst.h:7
fxprim
!$Header!c REAL ripx REAL fxprim
Definition: fxy_new.h:6
transy
!$Header!c!c!c include serre h!c REAL transy
Definition: serre.h:8
pyo
!$Header!c!c!c include serre h!c REAL pyo
Definition: serre.h:8
jjp1
!$Header jjp1
Definition: paramet.h:14
rj
!$Header!c REAL ripx REAL rj
Definition: fxy_new.h:6
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
pxo
!$Header!c!c!c include serre h!c REAL pxo
Definition: serre.h:8
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
transx
!$Header!c!c!c include serre h!c REAL transx
Definition: serre.h:8
alphay
!$Header!c!c!c include serre h!c REAL alphay
Definition: serre.h:8
ri
!$Header!c REAL ripx REAL ri
Definition: fxy_new.h:6