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

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

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

revision 139 by guez, Wed Apr 29 15:47:56 2015 UTC revision 140 by guez, Fri Jun 5 18:58:06 2015 UTC
# Line 18  contains Line 18  contains
18      ! Local:      ! Local:
19      REAL alphamin, alphamax, xi      REAL alphamin, alphamax, xi
20      INTEGER i, j, n_lon, n_lat      INTEGER i, j, n_lon, n_lat
     REAL zlat  
21    
22      !------------------------------------------------------------      !------------------------------------------------------------
23    
# Line 32  contains Line 31  contains
31      alphamax = factt / taumin      alphamax = factt / taumin
32    
33      DO j = 1, n_lat      DO j = 1, n_lat
34         zlat = rlat(j) * 180. / pi         IF (lat_min_guide <= rlat(j) .AND. rlat(j) <= lat_max_guide) THEN
        IF (lat_min_guide <= zlat .AND. zlat <= lat_max_guide) THEN  
35            DO i = 1, n_lon            DO i = 1, n_lon
36               xi = min(((dxdy_max - dxdy(i, j)) &               xi = min(((dxdy_max - dxdy(i, j)) &
37                    / (dxdy_max - dxdy_min))**gamma, 1.)                    / (dxdy_max - dxdy_min))**gamma, 1.)
Legend:
Removed from v.139  
changed lines
  Added in v.140
  ViewVC Help
Powered by ViewVC 1.1.21