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

Diff of /trunk/dyn3d/dynetat0.f

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

revision 154 by guez, Tue Jul 7 17:49:23 2015 UTC revision 156 by guez, Thu Jul 16 17:39:10 2015 UTC
# Line 30  module dynetat0_m Line 30  module dynetat0_m
30    ! raideur de la transition de l'int\'erieur \`a l'ext\'erieur du zoom    ! raideur de la transition de l'int\'erieur \`a l'ext\'erieur du zoom
31        
32    real rlatu(jjm + 1)    real rlatu(jjm + 1)
33    ! (latitudes of points of the "scalar" and "u" grid, in rad)    ! latitudes of points of the "scalar" and "u" grid, in rad
34    
35    real rlatv(jjm)    real rlatv(jjm)
36    ! (latitudes of points of the "v" grid, in rad, in decreasing order)    ! latitudes of points of the "v" grid, in rad, in decreasing order
37    
38    real rlonu(iim + 1) ! longitudes of points of the "u" grid, in rad    real rlonu(iim + 1) ! longitudes of points of the "u" grid, in rad
39    
40    real rlonv(iim + 1)    real rlonv(iim + 1)
41    ! (longitudes of points of the "scalar" and "v" grid, in rad)    ! longitudes of points of the "scalar" and "v" grid, in rad
42    
43    real xprimu(iim + 1), xprimv(iim + 1)    real xprimu(iim + 1), xprimv(iim + 1)
44    ! xprim[uv] = 2 pi / iim * (derivative of the longitudinal zoom    ! 2 pi / iim * (derivative of the longitudinal zoom function)(rlon[uv])
   ! function)(rlon[uv])  
45    
46    REAL xprimm025(iim + 1), xprimp025(iim + 1)    REAL xprimm025(iim + 1), xprimp025(iim + 1)
47    REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm)    REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm)
Legend:
Removed from v.154  
changed lines
  Added in v.156
  ViewVC Help
Powered by ViewVC 1.1.21