/[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 83 by guez, Thu Mar 6 15:12:00 2014 UTC revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 13  contains Line 13  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      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.83  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21