--- trunk/phylmd/Orography/gwstress.f 2014/03/05 14:57:53 82 +++ trunk/phylmd/Orography/gwstress.f 2014/09/04 10:40:24 105 @@ -78,13 +78,8 @@ !* 1. initialization ! -------------- -100 CONTINUE - !* 3.1 gravity wave stress. -300 CONTINUE - - DO 301 jl = 1, klon IF (ktest(jl)==1) THEN