#include "ctrparam.h"
! 	This subroutine is called one a month by driver
!	to normalize monthly climate data for TEM
	subroutine rclimate2tem(month,ndays,var)
        character *3 var
#include "BD2G04.COM"
#include "TEM.h"        
        dimension co24temc(jm0),
     &            o34temc(no3,jm0),
     &            temp4temc(jm0),
     &            dtem4temc(ndperm,jm0),
     &            sws4temc(jm0),
     &            pre4temc(jm0)
        print *,'rclimate4tem'
        print *,'var=',var
#if ( defined DATA4TEM )
        read(947),month,ndays,co24tem,temp4tem,pre4tem,sws4tem,
     &		o34tem,dtem4tem
       if(var.ne.'ALL')then
        read(937),month,ndays,co24temc,temp4temc,pre4temc,sws4temc,
     &		o34temc,dtem4temc
       endif
       if(var.eq.'CO2')then
!         print *,'CO2 from control run'
!          print *,month
!          print *,co24tem(23),co24temc(23)
           co24tem = co24temc
!          print *,co24tem(23),co24temc(23)
       endif
       if(var.eq.'FCO')then
!         print *,'CO2 -286.4'
!          print *,month
!          print *,co24tem(23),co24temc(23)
           co24tem = 286.4
!          print *,co24tem(23),co24temc(23)
       endif
       if(var.eq.'PC2')then
!         print *,'Precip and CO2 from control run'
          do j=1,jm0
           pre4tem(j) = pre4temc(j)
           co24tem(j) = co24temc(j)
          enddo
       endif
       if(var.eq.'PRE')then
!         print *,'Precip from control run'
          do j=1,jm0
           pre4tem(j) = pre4temc(j)
          enddo
       endif
       if(var.eq.'TEM')then
!         print *,'TEmperature from control run'
          do j=1,jm0
           temp4tem(j) = temp4temc(j)
          enddo
       endif
#endif
	return
	end