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

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

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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 173 by guez, Tue Oct 6 15:57:02 2015 UTC
# Line 72  contains Line 72  contains
72      CALL coordij(clon, clat, ilon, ilat)      CALL coordij(clon, clat, ilon, ilat)
73      ! aire de la maille au centre du zoom      ! aire de la maille au centre du zoom
74      dxdy_min = dxdys(ilon, ilat)      dxdy_min = dxdys(ilon, ilat)
75        print *, "dxdy_min = ", dxdy_min
76    
77      ! dxdy maximal de la maille :      ! dxdy maximal de la maille :
78      dxdy_max = 0.      dxdy_max = maxval(dxdys)
79      DO j = 1, jjp1      print *, "dxdy_max = ", dxdy_max
        DO i = 1, iip1  
           dxdy_max = max(dxdy_max, dxdys(i, j))  
        END DO  
     END DO  
80    
81      IF (abs(grossismx - 1.) < 0.1 .OR. abs(grossismy - 1.) < 0.1) THEN      IF (abs(grossismx - 1.) < 0.1 .OR. abs(grossismy - 1.) < 0.1) THEN
82         PRINT *, 'Attention : modèle peu zoomé.'         PRINT *, 'Attention : modèle peu zoomé.'
Legend:
Removed from v.139  
changed lines
  Added in v.173
  ViewVC Help
Powered by ViewVC 1.1.21