/[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

trunk/libf/phylmd/Orography/gwstress.f90 revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC trunk/phylmd/Orography/gwstress.f revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 41  Line 41 
41  !-----------------------------------------------------------------------  !-----------------------------------------------------------------------
42        USE dimens_m        USE dimens_m
43        USE dimphy        USE dimphy
44        USE yomcst        USE suphec_m
45        USE yoegwd        USE yoegwd
46        IMPLICIT NONE        IMPLICIT NONE
47    
# 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.23  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21