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	#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