Parent Directory
|
Revision Log
|
Patch
trunk/phylmd/Orography/gwstress.f revision 82 by guez, Wed Mar 5 14:57:53 2014 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 |