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	jscott	1.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	jscott	1.2	#include "TEM.h"
7	jscott	1.1	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