Context Navigation

fxy_new.h @ 4778

Last change on this file since 4778 was 1299, checked in by Laurent Fairhead, 15 years ago

Nettoyage general pour se rapprocher des normes et éviter des erreurs a la
compilation:

tous les FLOAT() sont remplacés par des REAL()
tous les STOP dans phylmd sont remplacés par des appels à abort_gcm
le common control défini dans le fichier control.h est remplacé par le module control_mod pour éviter des messages sur l'alignement des variables dans les déclarations
des $Header$ remplacés par des $Id$ pour svn

Quelques remplacements à faire ont pu m'échapper

General cleanup of the code to try and adhere to norms and to prevent some
compilation errors:

all FLOAT() instructions have been replaced by REAL() instructions
all STOP instructions in phylmd have been replaced by calls to abort_gcm
the common block control defined in the control.h file has been replaced by the control_mod to prevent compilation warnings on the alignement of declared variables
$Header$ replaced by $Id$ for svn

Some changes which should have been made might have escaped me

File size: 915 bytes

Line
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)+coefalphaSIN(depisjm*(rj-
25	c * transy ))
26	c fyprim(rj)= pisjjm-pisjjmcoefy2 COS(depisjm*(rj-transy))
27	c--------------------------------------------------------------

Note: See TracBrowser for help on using the repository browser.