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

Diff of /trunk/dyn3d/fxhyp_loop_ik.f

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

revision 126 by guez, Fri Feb 6 18:33:15 2015 UTC revision 127 by guez, Tue Feb 10 17:58:56 2015 UTC
# Line 6  module fxhyp_loop_ik_m Line 6  module fxhyp_loop_ik_m
6    
7  contains  contains
8    
9    subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xzoom, xlon, xprimm, xuv)    subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xlon, xprimm, xuv)
10    
11      use coefpoly_m, only: coefpoly      use coefpoly_m, only: coefpoly
12      USE dimens_m, ONLY: iim      USE dimens_m, ONLY: iim
13      use nr_util, only: pi_d, twopi_d      use nr_util, only: pi_d, twopi_d
14        use serre, only: clon
15    
16      DOUBLE PRECISION, intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax)      DOUBLE PRECISION, intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax)
     DOUBLE PRECISION, intent(in):: xzoom  
17      real, intent(out):: xlon(:), xprimm(:) ! (iim)      real, intent(out):: xlon(:), xprimm(:) ! (iim)
18    
19      DOUBLE PRECISION, intent(in):: xuv      DOUBLE PRECISION, intent(in):: xuv
# Line 78  contains Line 78  contains
78         END IF         END IF
79      END DO      END DO
80    
81      xlon = xvrai + xzoom      xlon = xvrai + clon
82      xprimm = xxprim      xprimm = xxprim
83    
84    end subroutine fxhyp_loop_ik    end subroutine fxhyp_loop_ik
Legend:
Removed from v.126  
changed lines
  Added in v.127
  ViewVC Help
Powered by ViewVC 1.1.21