igsm/src/zclimate2tem.F

#include "ctrparam.h"
!       This subroutine is called one a month by driver
!       to zero out  climate data for TEM
        subroutine zclimate2tem
#include "BD2G04.COM"
#include "TEM.COM"        
        do j=1,jm0
          co24tem(j)=0.0
          temp4tem(j)=0.0
          sws4tem(j)=0.0
          pre4tem(j)=0.0
          do n=1,no3
           o34tem(n,j)=0.0
          enddo
        enddo
        return
        end
1	jscott	1.1	#include "ctrparam.h"
2			! This subroutine is called one a month by driver
3			! to zero out climate data for TEM
4			subroutine zclimate2tem
5			#include "BD2G04.COM"
6			#include "TEM.COM"
7			do j=1,jm0
8			co24tem(j)=0.0
9			temp4tem(j)=0.0
10			sws4tem(j)=0.0
11			pre4tem(j)=0.0
12			do n=1,no3
13			o34tem(n,j)=0.0
14			enddo
15			enddo
16			return
17			end