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

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

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

revision 157 by guez, Wed Apr 29 15:47:56 2015 UTC revision 158 by guez, Tue Jul 21 14:44:45 2015 UTC
# Line 156  Line 156 
156          END IF          END IF
157  2110  CONTINUE  2110  CONTINUE
158    
   
 200   CONTINUE  
   
 !***********************************************************  
   
159  !*         3.      COMPUTE MOUNTAIN LIFT  !*         3.      COMPUTE MOUNTAIN LIFT
160    
 300   CONTINUE  
   
161        DO 301 jl = 1, klon        DO 301 jl = 1, klon
162          IF (ktest(jl)==1) THEN          IF (ktest(jl)==1) THEN
163            ztau(jl,klev+1) = -gklift*zrho(jl,klev+1)*2.*romega*2*pvaror(jl)*sin &            ztau(jl,klev+1) = -gklift*zrho(jl,klev+1)*2.*romega*2*pvaror(jl)*sin &
# Line 182  Line 175 
175  !*                 --------------------  !*                 --------------------
176    
177    
 400   CONTINUE  
   
178        DO jk = 1, klev        DO jk = 1, klev
179          DO jl = 1, klon          DO jl = 1, klon
180            IF (ktest(jl)==1) THEN            IF (ktest(jl)==1) THEN
# Line 201  Line 192 
192  !*                 -------------------  !*                 -------------------
193        IF (lifthigh) THEN        IF (lifthigh) THEN
194    
 500     CONTINUE  
195  !     PRINT *,'  DANS OROLIFT: 500'  !     PRINT *,'  DANS OROLIFT: 500'
196    
197  !  EXPLICIT SOLUTION AT ALL LEVELS  !  EXPLICIT SOLUTION AT ALL LEVELS
Legend:
Removed from v.157  
changed lines
  Added in v.158
  ViewVC Help
Powered by ViewVC 1.1.21