!=================================================================
!  CO2 大気放射計算プログラム; 
!  正味放射フラックスの計算
!
!  1999/05/26  小高正嗣
!  1999/06/07  小高正嗣
!=================================================================

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

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

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

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

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

      return 
      
      end
