/[lmdze]/trunk/phylmd/Orography/gwstress.f
ViewVC logotype

Diff of /trunk/phylmd/Orography/gwstress.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 78  Line 78 
78  !*         1.    initialization  !*         1.    initialization
79  !                --------------  !                --------------
80    
 100   CONTINUE  
   
81  !*         3.1     gravity wave stress.  !*         3.1     gravity wave stress.
82    
 300   CONTINUE  
   
   
83        DO 301 jl = 1, klon        DO 301 jl = 1, klon
84          IF (ktest(jl)==1) THEN          IF (ktest(jl)==1) THEN
85    
Legend:
Removed from v.82  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21