Parent Directory
|
Revision Log
|
Revision Graph
atm2d package
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 |
ViewVC Help | |
Powered by ViewVC 1.1.22 |