/[lmdze]/trunk/dyn3d/Guide/tau2alpha.f
ViewVC logotype

Diff of /trunk/dyn3d/Guide/tau2alpha.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 83 by guez, Thu Mar 6 15:12:00 2014 UTC
# Line 7  module tau2alpha_m Line 7  module tau2alpha_m
7    
8      private iip1, jjp1, jjm      private iip1, jjp1, jjm
9    
     REAL lat_min_guide, lat_max_guide  
10      REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)      REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)
11    
12  contains  contains
13    
14    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)
15    
16        use conf_guide_m, only: lat_min_guide, lat_max_guide
17      USE dimens_m, ONLY : iim      USE dimens_m, ONLY : iim
18      USE nr_util, ONLY : pi      USE nr_util, ONLY : pi
19      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv
Legend:
Removed from v.82  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.21