Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |