/[MITgcm]/MITgcm_contrib/jscott/igsm/src/zclimate2tem.F
ViewVC logotype

Annotation of /MITgcm_contrib/jscott/igsm/src/zclimate2tem.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Fri Aug 11 19:35:33 2006 UTC (18 years, 11 months ago) by jscott
Branch: MAIN
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