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

Diff of /trunk/dyn3d/comgeom.f

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

revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 46 by guez, Mon May 16 14:52:30 2011 UTC
# Line 15  module comgeom Line 15  module comgeom
15    real unscu2(ip1jmp1)    real unscu2(ip1jmp1)
16    equivalence (unscu2, unscu2_2d)    equivalence (unscu2, unscu2_2d)
17    
18    real unscv2_2d(iim + 1,jjm)    real unscv2_2d(iim + 1, jjm)
19    real unscv2(ip1jm)    real unscv2(ip1jm)
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_2d(iim + 1, jjm + 1), airesurg_2d(iim + 1, jjm + 1)
23    real aire(ip1jmp1), airesurg(ip1jmp1)    real aire(ip1jmp1), 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)              real aireu_2d(iim + 1, jjm + 1)          
27    real aireu(ip1jmp1)    real aireu(ip1jmp1)
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_2d(iim + 1, jjm), unsaire_2d(iim + 1, jjm + 1)
31    real airev(ip1jm),unsaire(ip1jmp1)    real airev(ip1jm), unsaire(ip1jmp1)
32    equivalence (airev, airev_2d), (unsaire, unsaire_2d)    equivalence (airev, airev_2d), (unsaire, unsaire_2d)
33    
34    real apoln,apols    real apoln, apols
35    
36    real unsairez_2d(iim + 1,jjm)    real unsairez_2d(iim + 1, jjm)
37    real unsairez(ip1jm)    real unsairez(ip1jm)
38    equivalence (unsairez, unsairez_2d)    equivalence (unsairez, unsairez_2d)
39    
40    real alpha1_2d(iim + 1,jjm + 1)    real alpha1_2d(iim + 1, jjm + 1)
41    real alpha1(ip1jmp1)    real alpha1(ip1jmp1)
42    equivalence (alpha1, alpha1_2d)    equivalence (alpha1, alpha1_2d)
43    
44    real alpha2_2d(iim + 1,jjm + 1)            real alpha2_2d(iim + 1, jjm + 1)        
45    real alpha2(ip1jmp1)    real alpha2(ip1jmp1)
46    equivalence (alpha2, alpha2_2d)    equivalence (alpha2, alpha2_2d)
47    
48    real alpha3_2d(iim + 1,jjm + 1), alpha4_2d(iim + 1,jjm + 1)    real alpha3_2d(iim + 1, jjm + 1), alpha4_2d(iim + 1, jjm + 1)
49    real alpha3(ip1jmp1), alpha4(ip1jmp1)    real alpha3(ip1jmp1), alpha4(ip1jmp1)
50    equivalence (alpha3, alpha3_2d), (alpha4, alpha4_2d)    equivalence (alpha3, alpha3_2d), (alpha4, alpha4_2d)
51    
52    real alpha1p2_2d(iim + 1,jjm + 1)            real alpha1p2_2d(iim + 1, jjm + 1)        
53    real alpha1p2(ip1jmp1)    real alpha1p2(ip1jmp1)
54    equivalence (alpha1p2, alpha1p2_2d)    equivalence (alpha1p2, alpha1p2_2d)
55    
56    real alpha1p4_2d(iim + 1,jjm + 1),alpha2p3_2d(iim + 1,jjm + 1)    real alpha1p4_2d(iim + 1, jjm + 1), alpha2p3_2d(iim + 1, jjm + 1)
57    real alpha1p4(ip1jmp1),alpha2p3(ip1jmp1)    real alpha1p4(ip1jmp1), alpha2p3(ip1jmp1)
58    equivalence (alpha1p4, alpha1p4_2d), (alpha2p3, alpha2p3_2d)    equivalence (alpha1p4, alpha1p4_2d), (alpha2p3, alpha2p3_2d)
59    
60    real alpha3p4(ip1jmp1)    real alpha3p4(ip1jmp1)
61    real alpha3p4_2d(iim + 1,jjm + 1)        real alpha3p4_2d(iim + 1, jjm + 1)    
62    equivalence (alpha3p4, alpha3p4_2d)    equivalence (alpha3p4, alpha3p4_2d)
63    
64    real fext_2d(iim + 1,jjm),constang_2d(iim + 1,jjm + 1)    real fext_2d(iim + 1, jjm), constang_2d(iim + 1, jjm + 1)
65    real fext(ip1jm),constang(ip1jmp1)    real fext(ip1jm), constang(ip1jmp1)
66    equivalence (fext, fext_2d), (constang, constang_2d)    equivalence (fext, fext_2d), (constang, constang_2d)
67    
68    real rlatu(jjm + 1)    real rlatu(jjm + 1)
# 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)  
80    real cuvsurcv(ip1jm),cvsurcuv(ip1jm)    real cuvsurcv(ip1jm), cvsurcuv(ip1jm)
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)    real cvusurcu(ip1jmp1), cusurcvu(ip1jmp1)
85    equivalence (cvusurcu, cvusurcu_2d), (cusurcvu, cusurcvu_2d)    equivalence (cvusurcu, cvusurcu_2d), (cusurcvu, cusurcvu_2d)
86    
87    real cuvscvgam1_2d(iim + 1,jjm)    real cuvscvgam1_2d(iim + 1, jjm)
88    real cuvscvgam1(ip1jm)    real cuvscvgam1(ip1jm)
89    equivalence (cuvscvgam1, cuvscvgam1_2d)    equivalence (cuvscvgam1, cuvscvgam1_2d)
90    
91    real cuvscvgam2_2d(iim + 1,jjm),cvuscugam1_2d(iim + 1,jjm + 1)    real cuvscvgam2_2d(iim + 1, jjm), cvuscugam1_2d(iim + 1, jjm + 1)
92    real cuvscvgam2(ip1jm),cvuscugam1(ip1jmp1)    real cuvscvgam2(ip1jm), cvuscugam1(ip1jmp1)
93    equivalence (cuvscvgam2, cuvscvgam2_2d), (cvuscugam1, cvuscugam1_2d)    equivalence (cuvscvgam2, cuvscvgam2_2d), (cvuscugam1, cvuscugam1_2d)
94    
95    real cvuscugam2_2d(iim + 1,jjm + 1),cvscuvgam_2d(iim + 1,jjm)    real cvuscugam2_2d(iim + 1, jjm + 1), cvscuvgam_2d(iim + 1, jjm)
96    real cvuscugam2(ip1jmp1),cvscuvgam(ip1jm)    real cvuscugam2(ip1jmp1), cvscuvgam(ip1jm)
97    equivalence (cvuscugam2, cvuscugam2_2d), (cvscuvgam, cvscuvgam_2d)    equivalence (cvuscugam2, cvuscugam2_2d), (cvscuvgam, cvscuvgam_2d)
98    
99    real cuscvugam(ip1jmp1)    real cuscvugam(ip1jmp1)
100    real cuscvugam_2d(iim + 1,jjm + 1)    real cuscvugam_2d(iim + 1, jjm + 1)
101    equivalence (cuscvugam, cuscvugam_2d)    equivalence (cuscvugam, cuscvugam_2d)
102    
103    real unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2                    real unsapolnga1, unsapolnga2, unsapolsga1, unsapolsga2                
104    
105    real unsair_gam1_2d(iim + 1,jjm + 1),unsair_gam2_2d(iim + 1,jjm + 1)    real unsair_gam1_2d(iim + 1, jjm + 1), unsair_gam2_2d(iim + 1, jjm + 1)
106    real unsair_gam1(ip1jmp1),unsair_gam2(ip1jmp1)    real unsair_gam1(ip1jmp1), unsair_gam2(ip1jmp1)
107    equivalence (unsair_gam1, unsair_gam1_2d), (unsair_gam2, unsair_gam2_2d)    equivalence (unsair_gam1, unsair_gam1_2d), (unsair_gam2, unsair_gam2_2d)
108    
109    real unsairz_gam_2d(iim + 1,jjm)    real unsairz_gam_2d(iim + 1, jjm)
110    real unsairz_gam(ip1jm)    real unsairz_gam(ip1jm)
111    equivalence (unsairz_gam, unsairz_gam_2d)    equivalence (unsairz_gam, unsairz_gam_2d)
112    
113    real xprimu(iim + 1),xprimv(iim + 1)    real xprimu(iim + 1), xprimv(iim + 1)
114    
115    save    save
116    
Legend:
Removed from v.25  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.21