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

Annotation of /MITgcm_contrib/jscott/igsm/src/climate2tem.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:30 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 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

  ViewVC Help
Powered by ViewVC 1.1.22