/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC
# Line 33  module comgeom Line 33  module comgeom
33    
34    real apoln,apols    real apoln,apols
35    
36    real unsairez_2d(iim + 1,jjm),airuscv2_2d(iim + 1,jjm)    real unsairez_2d(iim + 1,jjm)
37    real unsairez(ip1jm),airuscv2(ip1jm)    real unsairez(ip1jm)
38    equivalence (unsairez, unsairez_2d), (airuscv2, airuscv2_2d)    equivalence (unsairez, unsairez_2d)
39    
40    real airvscu2_2d(iim + 1,jjm)          real alpha1_2d(iim + 1,jjm + 1)
41    real airvscu2(ip1jm)    real alpha1(ip1jmp1)
42    equivalence (airvscu2, airvscu2_2d)    equivalence (alpha1, alpha1_2d)
   
   real aireij1_2d(iim + 1,jjm + 1),aireij2_2d(iim + 1,jjm + 1)  
   real aireij1(ip1jmp1),aireij2(ip1jmp1)  
   equivalence (aireij1, aireij1_2d), (aireij2, aireij2_2d)  
   
   real aireij3(ip1jmp1)  
   real aireij3_2d(iim + 1,jjm + 1)        
   equivalence (aireij3, aireij3_2d)  
   
   real aireij4_2d(iim + 1,jjm + 1), alpha1_2d(iim + 1,jjm + 1)  
   real aireij4(ip1jmp1), alpha1(ip1jmp1)  
   equivalence (aireij4, aireij4_2d), (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)
# Line 122  module comgeom Line 110  module comgeom
110    real unsairz_gam(ip1jm)    real unsairz_gam(ip1jm)
111    equivalence (unsairz_gam, unsairz_gam_2d)    equivalence (unsairz_gam, unsairz_gam_2d)
112    
   real aivscu2gam_2d(iim + 1,jjm),aiuscv2gam_2d(iim + 1,jjm)  
   real aivscu2gam(ip1jm),aiuscv2gam(ip1jm)  
   equivalence (aivscu2gam, aivscu2gam_2d), (aiuscv2gam, aiuscv2gam_2d)  
   
113    real xprimu(iim + 1),xprimv(iim + 1)    real xprimu(iim + 1),xprimv(iim + 1)
114    
115    save    save
Legend:
Removed from v.3  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.21