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