Symbol Description Uses
tstrip 6


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 495 SWRIO 
        tstrip(i) = 1.0 - flux(i,lm+1)/
./pkg/fizhi/fizhi_swrad.F 497 SWRIO 
        if( tstrip(i).lt.0.0 ) tstrip(i) = undef
./pkg/fizhi/fizhi_swrad.F 499 SWRIO 
        tstrip(i) = undef
./pkg/fizhi/fizhi_swrad.F 502 SWRIO 
      call PASTE ( tstrip,albedo,istrip,im*jm,1,nn )
./pkg/fizhi/fizhi_swrad.F 91 SWRIO 
      _RL tstrip (istrip)