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

Diff of /trunk/dyn3d/invert_zoom_x.f

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

revision 264 by guez, Tue Mar 6 13:39:57 2018 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 12  contains Line 12  contains
12    subroutine invert_zoom_x(beta, xf, xtild, G, xlon, xprim, xuv)    subroutine invert_zoom_x(beta, xf, xtild, G, xlon, xprim, xuv)
13    
14      use coefpoly_m, only: coefpoly, a1, a2, a3      use coefpoly_m, only: coefpoly, a1, a2, a3
15      USE dimens_m, ONLY: iim      USE dimensions, ONLY: iim
16      use dynetat0_m, only: clon, grossismx      use dynetat0_m, only: clon, grossismx
17      use nr_util, only: pi_d, twopi_d      use nr_util, only: pi_d, twopi_d
18      use numer_rec_95, only: hunt, rtsafe      use numer_rec_95, only: hunt, rtsafe

Legend:
Removed from v.264  
changed lines
  Added in v.265

  ViewVC Help
Powered by ViewVC 1.1.21