/[lmdze]/trunk/dyn3d/comgeom.f90
ViewVC logotype

Diff of /trunk/dyn3d/comgeom.f90

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

revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC revision 60 by guez, Mon Jan 30 14:37:26 2012 UTC
# Line 7  module comgeom Line 7  module comgeom
7    
8    private iim, jjm, ip1jmp1, ip1jm    private iim, jjm, ip1jmp1, ip1jm
9    
10    real cu_2d(iim + 1, jjm + 1), cv_2d(iim + 1, jjm)    real cu_2d(iim + 1, jjm + 1), cv_2d(iim + 1, jjm) ! in m
11    real cu(ip1jmp1), cv(ip1jm)    real cu(ip1jmp1), cv(ip1jm) ! in m
12    equivalence (cu, cu_2d), (cv, cv_2d)    equivalence (cu, cu_2d), (cv, cv_2d)
13    
14    real unscu2_2d(iim + 1, jjm + 1)    real unscu2_2d(iim + 1, jjm + 1) ! in m-2
15    real unscu2(ip1jmp1)    real unscu2(ip1jmp1) ! in m-2
16    equivalence (unscu2, unscu2_2d)    equivalence (unscu2, unscu2_2d)
17    
18    real unscv2_2d(iim + 1, jjm)    real unscv2_2d(iim + 1, jjm) ! in m-2
19    real unscv2(ip1jm)    real unscv2(ip1jm) ! in m-2
20    equivalence (unscv2, unscv2_2d)    equivalence (unscv2, unscv2_2d)
21    
22    real aire_2d(iim + 1, jjm + 1), airesurg_2d(iim + 1, jjm + 1)    real aire(ip1jmp1), aire_2d(iim + 1, jjm + 1) ! in m2
23    real aire(ip1jmp1), airesurg(ip1jmp1)    real airesurg_2d(iim + 1, jjm + 1), airesurg(ip1jmp1)
24    equivalence (aire, aire_2d), (airesurg, airesurg_2d)    equivalence (aire, aire_2d), (airesurg, airesurg_2d)
25    
26    real aireu_2d(iim + 1, jjm + 1) ! in m2    real aireu_2d(iim + 1, jjm + 1) ! in m2
27    real aireu(ip1jmp1) ! in m2    real aireu(ip1jmp1) ! in m2
28    equivalence (aireu, aireu_2d)    equivalence (aireu, aireu_2d)
29    
30    real airev_2d(iim + 1, jjm), unsaire_2d(iim + 1, jjm + 1)    real airev(ip1jm), airev_2d(iim + 1, jjm) ! in m2
31    real airev(ip1jm), unsaire(ip1jmp1)    real unsaire(ip1jmp1), unsaire_2d(iim + 1, jjm + 1) ! in m-2
32    equivalence (airev, airev_2d), (unsaire, unsaire_2d)    equivalence (airev, airev_2d), (unsaire, unsaire_2d)
33    
34    real apoln, apols    real apoln, apols ! in m2
35    
36    real unsairez_2d(iim + 1, jjm)    real unsairez_2d(iim + 1, jjm)
37    real unsairez(ip1jm)    real unsairez(ip1jm)
# Line 76  module comgeom Line 76  module comgeom
76    real rlonv(iim + 1)    real rlonv(iim + 1)
77    ! (longitudes of points of the "scalar" and "v" grid, in rad)    ! (longitudes of points of the "scalar" and "v" grid, in rad)
78    
79    real cuvsurcv_2d(iim + 1, jjm), cvsurcuv_2d(iim + 1, jjm)      real cuvsurcv_2d(iim + 1, jjm), cvsurcuv_2d(iim + 1, jjm) ! no dimension
80    real cuvsurcv(ip1jm), cvsurcuv(ip1jm)    real cuvsurcv(ip1jm), cvsurcuv(ip1jm) ! no dimension
81    equivalence (cuvsurcv, cuvsurcv_2d), (cvsurcuv, cvsurcuv_2d)    equivalence (cuvsurcv, cuvsurcv_2d), (cvsurcuv, cvsurcuv_2d)
82    
83    real cvusurcu_2d(iim + 1, jjm + 1), cusurcvu_2d(iim + 1, jjm + 1)    real cvusurcu_2d(iim + 1, jjm + 1), cusurcvu_2d(iim + 1, jjm + 1)
84    real cvusurcu(ip1jmp1), cusurcvu(ip1jmp1)    ! no dimension
85      real cvusurcu(ip1jmp1), cusurcvu(ip1jmp1) ! no dimension
86    equivalence (cvusurcu, cvusurcu_2d), (cusurcvu, cusurcvu_2d)    equivalence (cvusurcu, cvusurcu_2d), (cusurcvu, cusurcvu_2d)
87    
88    real cuvscvgam1_2d(iim + 1, jjm)    real cuvscvgam1_2d(iim + 1, jjm)
Legend:
Removed from v.57  
changed lines
  Added in v.60
  ViewVC Help
Powered by ViewVC 1.1.21