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

Diff of /trunk/dyn3d/fxhyp.f

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

revision 156 by guez, Thu Jul 16 17:39:10 2015 UTC revision 167 by guez, Mon Aug 24 16:30:33 2015 UTC
# Line 102  contains Line 102  contains
102              * ffdx(:nmax - 1)              * ffdx(:nmax - 1)
103         Xf(nmax) = pi_d         Xf(nmax) = pi_d
104    
105         call invert_zoom_x(xf, xtild, G, rlonm025(:iim), xprimm025(:iim), &         call invert_zoom_x(beta, xf, xtild, G, rlonm025(:iim), xprimm025(:iim), &
106              xuv = - 0.25d0)              xuv = - 0.25d0)
107         call invert_zoom_x(xf, xtild, G, rlonv(:iim), xprimv(:iim), xuv = 0d0)         call invert_zoom_x(beta, xf, xtild, G, rlonv(:iim), xprimv(:iim), &
108         call invert_zoom_x(xf, xtild, G, rlonu(:iim), xprimu(:iim), xuv = 0.5d0)              xuv = 0d0)
109         call invert_zoom_x(xf, xtild, G, rlonp025(:iim), xprimp025(:iim), &         call invert_zoom_x(beta, xf, xtild, G, rlonu(:iim), xprimu(:iim), &
110                xuv = 0.5d0)
111           call invert_zoom_x(beta, xf, xtild, G, rlonp025(:iim), xprimp025(:iim), &
112              xuv = 0.25d0)              xuv = 0.25d0)
113      end if      end if
114    
Legend:
Removed from v.156  
changed lines
  Added in v.167
  ViewVC Help
Powered by ViewVC 1.1.21