/[lmdze]/trunk/Sources/phylmd/Orography/gwprofil.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Orography/gwprofil.f

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

revision 158 by guez, Tue Jul 21 14:44:45 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 35  contains Line 35  contains
35      REAL, INTENT (IN) :: pvar(nlon)      REAL, INTENT (IN) :: pvar(nlon)
36    
37      ! Local:      ! Local:
38      INTEGER ilevh, jl, jk      INTEGER jl, jk
39      REAL zsqr, zalfa, zriw, zdel, zb, zalpha, zdz2n      REAL zsqr, zalfa, zriw, zdel, zb, zalpha, zdz2n
40      REAL zdelp, zdelpt      REAL zdelp, zdelpt
41      REAL zdz2(klon, klev), znorm(klon), zoro(klon)      REAL zdz2(klon, klev), znorm(klon), zoro(klon)
# Line 47  contains Line 47  contains
47    
48      ! COMPUTATIONAL CONSTANTS.      ! COMPUTATIONAL CONSTANTS.
49    
     ilevh = klev/3  
   
50      DO jl = 1, klon      DO jl = 1, klon
51         IF (ktest(jl)==1) THEN         IF (ktest(jl)==1) THEN
52            zoro(jl) = psig(jl)*pdmod(jl)/4./max(pvar(jl), 1.0)            zoro(jl) = psig(jl)*pdmod(jl)/4./max(pvar(jl), 1.0)
Legend:
Removed from v.158  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21