/[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.2 - (hide annotations) (download)
Mon Apr 23 21:20:18 2007 UTC (18 years, 3 months ago) by jscott
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
bring igsm atmos code up to date

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 jscott 1.2 #include "TEM.h"
7 jscott 1.1 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