Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/grid/fxyprim.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/fxyprim.h
r524 r1299 13 13 c 14 14 c 15 fy ( rj ) = pi/ FLOAT(jjm) * ( 0.5 * FLOAT(jjm) + 1. - rj )16 fyprim( rj ) = pi/ FLOAT(jjm)15 fy ( rj ) = pi/REAL(jjm) * ( 0.5 * REAL(jjm) + 1. - rj ) 16 fyprim( rj ) = pi/REAL(jjm) 17 17 18 c fy(rj)=ASIN(1.+2.*((1.-rj)/ FLOAT(jjm)))18 c fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm))) 19 19 c fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj)) 20 20 21 fx ( ri ) = 2.*pi/ FLOAT(iim) * ( ri - 0.5* FLOAT(iim) - 1. )22 c fx ( ri ) = 2.*pi/ FLOAT(iim) * ( ri - 0.5* ( FLOAT(iim) + 1.) )23 fxprim( ri ) = 2.*pi/ FLOAT(iim)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 24 c 25 25 c
Note: See TracChangeset
for help on using the changeset viewer.