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

Diff of /trunk/dyn3d/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 102 by guez, Tue Jul 15 13:43:24 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 comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv
17        use conf_guide_m, only: lat_min_guide, lat_max_guide
18        use dump2d_m, only: dump2d
19      USE dimens_m, ONLY : iim      USE dimens_m, ONLY : iim
20      USE nr_util, ONLY : pi      USE nr_util, ONLY : pi
     USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv  
21      USE serre, ONLY : clat, clon, grossismx, grossismy      USE serre, ONLY : clat, clon, grossismx, grossismy
22    
23      !   arguments :      !   arguments :
# Line 71  contains Line 72  contains
72         END DO         END DO
73         DO j = 1, jjm         DO j = 1, jjm
74            DO i = 1, iip1            DO i = 1, iip1
75               dxdyv(i, j) = 0.5*(dxdys(i, j)+dxdys(i+1, j))               dxdyv(i, j) = 0.5*(dxdys(i, j)+dxdys(i, j + 1))
76            END DO            END DO
77         END DO         END DO
78    
Legend:
Removed from v.82  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21