/[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 107 by guez, Fri Aug 29 13:00:05 2014 UTC revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 16  contains Line 16  contains
16      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv      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 dimens_m, ONLY : iim      USE dimens_m, ONLY : iim
     use dump2d_m, only: dump2d  
19      USE nr_util, ONLY : pi      USE nr_util, ONLY : pi
20      USE serre, ONLY : clat, clon, grossismx, grossismy      USE serre, ONLY : clat, clon, grossismx, grossismy
21    
# Line 71  contains Line 70  contains
70            END DO            END DO
71         END DO         END DO
72    
        CALL dump2d(iip1, jjp1, dxdys, 'DX2DY2 SCAL ')  
        CALL dump2d(iip1, jjp1, dxdyu, 'DX2DY2 U ')  
        CALL dump2d(iip1, jjp1, dxdyv, 'DX2DY2 v ')  
   
73         ! coordonnees du centre du zoom         ! coordonnees du centre du zoom
74         CALL coordij(clon, clat, ilon, ilat)         CALL coordij(clon, clat, ilon, ilat)
75         ! aire de la maille au centre du zoom         ! aire de la maille au centre du zoom
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21