/[lmdze]/trunk/phylmd/Orography/gwprofil.f90
ViewVC logotype

Diff of /trunk/phylmd/Orography/gwprofil.f90

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

trunk/Sources/phylmd/Orography/gwprofil.f revision 158 by guez, Tue Jul 21 14:44:45 2015 UTC trunk/phylmd/Orography/gwprofil.f revision 254 by guez, Mon Feb 5 10:39:38 2018 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.254
  ViewVC Help
Powered by ViewVC 1.1.21