/[lmdze]/trunk/Sources/dyn3d/Guide/Read_reanalyse/nat2gcm.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Guide/Read_reanalyse/nat2gcm.f

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

trunk/libf/dyn3d/Read_reanalyse/nat2gcm.f90 revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC trunk/dyn3d/Read_reanalyse/nat2gcm.f revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 4  Line 4 
4  !===========================================================================  !===========================================================================
5    
6        use dimens_m        use dimens_m
7          use dump2d_m, only: dump2d
8        use paramet_m        use paramet_m
9        use comconst        use comconst
10        use comvert        use disvert_m
11        use comgeom        use comgeom
12        use q_sat_m, only: q_sat        use q_sat_m, only: q_sat
13        use guide_m        use guide_m
# Line 15  Line 16 
16    
17        real u(iip1,jjp1,llm),v(iip1,jjm,llm)        real u(iip1,jjp1,llm),v(iip1,jjm,llm)
18        real t(iip1,jjp1,llm),pk(iip1,jjp1,llm),rh(iip1,jjp1,llm)        real t(iip1,jjp1,llm),pk(iip1,jjp1,llm),rh(iip1,jjp1,llm)
       real ps(iip1,jjp1)  
   
19        real ucov(iip1,jjp1,llm),vcov(iip1,jjm,llm)        real ucov(iip1,jjp1,llm),vcov(iip1,jjm,llm)
20        real teta(iip1,jjp1,llm),q(iip1,jjp1,llm)        real teta(iip1,jjp1,llm),q(iip1,jjp1,llm)
21    
Legend:
Removed from v.37  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21