/[lmdze]/trunk/libf/dyn3d/PVtheta.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/PVtheta.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 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# Line 4  Line 4 
4        use dimens_m        use dimens_m
5        use paramet_m        use paramet_m
6        use comconst        use comconst
7        use comvert        use disvert_m
8        use comgeom        use comgeom
9        IMPLICIT none        IMPLICIT none
10    
# Line 53  c Line 53  c
53        INTEGER ilon        INTEGER ilon
54        integer, intent(in):: ilev        integer, intent(in):: ilev
55        REAL pvcov(iip1,jjm,ilev)        REAL pvcov(iip1,jjm,ilev)
56        REAL pucov(iip1,jjp1,ilev)        REAL, intent(in):: pucov(iip1,jjp1,ilev)
57        REAL pteta(iip1,jjp1,ilev)        REAL, intent(in):: pteta(iip1,jjp1,ilev)
58        REAL ztfi(ilon,ilev)        REAL ztfi(ilon,ilev)
59        REAL zplay(ilon,ilev), zplev(ilon,ilev+1)        REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1)
60        INTEGER nbteta        INTEGER nbteta
61        REAL theta(nbteta)        REAL theta(nbteta)
62  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21