Parent Directory | Revision Log | Patch
trunk/phylmd/Orography/gwstress.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | trunk/Sources/phylmd/Orography/gwstress.f revision 134 by guez, Wed Apr 29 15:47:56 2015 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |