Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/grid/fxy_sin.h
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/grid/fxy_sin.h
r524 r1299 13 13 c 14 14 c 15 fy(rj)=ASIN(1.+2.*((1.-rj)/ FLOAT(jjm)))15 fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm))) 16 16 fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj)) 17 17 18 fx ( ri ) = 2.*pi/ FLOAT(iim) * ( ri - 0.5* FLOAT(iim) - 1. )19 c fx ( ri ) = 2.*pi/ FLOAT(iim) * ( ri - 0.5* ( FLOAT(iim) + 1.) )20 fxprim( ri ) = 2.*pi/ FLOAT(iim)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 21 c 22 22 c
Note: See TracChangeset
for help on using the changeset viewer.