igsm/src/climate2tem.F

#include "ctrparam.h"
!       This subroutine is called one a month by driver
!       to normalize monthly climate data for TEM
        subroutine climate2tem(month,ndays)
#include "BD2G04.COM"
#include "TEM.h"        
        print *,'climate4tem'
        do j=1,jm0
c         co24tem(j)=co24tem(j)/ndays
          temp4tem(j)=temp4tem(j)/ndays
          sws4tem(j)=sws4tem(j)/ndays
          pre4tem(j)=pre4tem(j)/ndays
#if ( !defined CPL_CHEM )
          do n=1,no3
           o34tem(n,j)=obso3(n,j,month)
          enddo
#endif
        enddo
        print *,'Month=',month,' CO2(23) for TEM=',co24tem(jm0/2)
c       print *,'O3 for TEM J=23'
c       print *,(o34tem(n,23),n=1,no3)
#if ( defined DATA4TEM )
        write(937),month,ndays,co24tem,temp4tem,pre4tem,sws4tem,
     &          o34tem,dtem4tem
c       write(937),month,ndays,co24tem,
c    &            o34tem,
c    &            temp4tem,
c    &            dtem4tem,
c    &            sws4tem,
c    &            pre4tem,
c    &            strmdur,
c    &            qstrm,
c    &            aet,
c    &            sh2o1m,
c    &            sh2o2m,
c    &            daytsoil,
c    &            daysho,
c    &            rsh2o
#endif
        return
        end
1	#include "ctrparam.h"
2	! This subroutine is called one a month by driver
3	! to normalize monthly climate data for TEM
4	subroutine climate2tem(month,ndays)
5	#include "BD2G04.COM"
6	#include "TEM.h"
7	print *,'climate4tem'
8	do j=1,jm0
9	c co24tem(j)=co24tem(j)/ndays
10	temp4tem(j)=temp4tem(j)/ndays
11	sws4tem(j)=sws4tem(j)/ndays
12	pre4tem(j)=pre4tem(j)/ndays
13	#if ( !defined CPL_CHEM )
14	do n=1,no3
15	o34tem(n,j)=obso3(n,j,month)
16	enddo
17	#endif
18	enddo
19	print *,'Month=',month,' CO2(23) for TEM=',co24tem(jm0/2)
20	c print *,'O3 for TEM J=23'
21	c print *,(o34tem(n,23),n=1,no3)
22	#if ( defined DATA4TEM )
23	write(937),month,ndays,co24tem,temp4tem,pre4tem,sws4tem,
24	& o34tem,dtem4tem
25	c write(937),month,ndays,co24tem,
26	c & o34tem,
27	c & temp4tem,
28	c & dtem4tem,
29	c & sws4tem,
30	c & pre4tem,
31	c & strmdur,
32	c & qstrm,
33	c & aet,
34	c & sh2o1m,
35	c & sh2o2m,
36	c & daytsoil,
37	c & daysho,
38	c & rsh2o
39	#endif
40	return
41	end