!=================================================================
!  一次元灰色大気放射対流平衡計算プログラム; 
!  正味放射フラックスの計算
!
!  1999/05/26  小高正嗣
!=================================================================

      subroutine CLFXRDN
     I   ( FXRADU, FXRADD,
     O     FXRADN,
     D     NZ, NZB )

!-----------------------------------------------------------------      
      implicit real*8 ( a-h,o-z )
!-----------------------------------------------------------------      

      dimension 
     \   FXRADU(-2:NZB), FXRADD(-2:NZB), FXRADN(-2:NZB)

!-----------------------------------------------------------------      

      do iz = -2, NZB
         FXRADN( iz ) = FXRADU( iz ) - FXRADD( iz )
      end do
      
      return 
      
      end
