| 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 |
|
|
#include "TEM.COM" |
| 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 |
Parent Directory
| 
Revision Log
| 
Revision Graph