/[lmdze]/trunk/dyn3d/fxy.f
ViewVC logotype

Diff of /trunk/dyn3d/fxy.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 64  CONTAINS Line 64  CONTAINS
64    
65    REAL FUNCTION ripx(ri)    REAL FUNCTION ripx(ri)
66      ! stretching in x      ! stretching in x
67      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
68      REAL, INTENT (IN) :: ri      REAL, INTENT (IN) :: ri
69    
70      ripx = (ri - 1.) * 2 * pi / REAL(iim)      ripx = (ri - 1.) * 2 * pi / REAL(iim)
# Line 74  CONTAINS Line 74  CONTAINS
74    
75    REAL FUNCTION fx(ri)    REAL FUNCTION fx(ri)
76      ! stretching in x      ! stretching in x
77      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
78      USE serre, ONLY : alphax, pxo, transx      USE serre, ONLY : alphax, pxo, transx
79      REAL, INTENT (IN) :: ri      REAL, INTENT (IN) :: ri
80    
# Line 85  CONTAINS Line 85  CONTAINS
85    
86    REAL FUNCTION fxprim(ri)    REAL FUNCTION fxprim(ri)
87      ! stretching in x      ! stretching in x
88      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
89      USE serre, ONLY : alphax, pxo, transx      USE serre, ONLY : alphax, pxo, transx
90      REAL, INTENT (IN) :: ri      REAL, INTENT (IN) :: ri
91    
# Line 96  CONTAINS Line 96  CONTAINS
96    
97    REAL FUNCTION bigy(rj)    REAL FUNCTION bigy(rj)
98      ! stretching in y      ! stretching in y
99      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
100      REAL, INTENT (IN) :: rj      REAL, INTENT (IN) :: rj
101    
102      bigy = 2 * (REAL(jjm + 1) - rj) * pi / jjm      bigy = 2 * (REAL(jjm + 1) - rj) * pi / jjm
# Line 106  CONTAINS Line 106  CONTAINS
106    
107    REAL FUNCTION fy(rj)    REAL FUNCTION fy(rj)
108      ! stretching in y      ! stretching in y
109      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
110      USE serre, ONLY : alphay, pyo, transy      USE serre, ONLY : alphay, pyo, transy
111      REAL, INTENT (IN) :: rj      REAL, INTENT (IN) :: rj
112    
# Line 118  CONTAINS Line 118  CONTAINS
118    
119    REAL FUNCTION fyprim(rj)    REAL FUNCTION fyprim(rj)
120      ! stretching in y      ! stretching in y
121      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
122      USE serre, ONLY : alphay, pyo, transy      USE serre, ONLY : alphay, pyo, transy
123      REAL, INTENT (IN) :: rj      REAL, INTENT (IN) :: rj
124    
Legend:
Removed from v.7  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21