1 | PROGRAM testhist1 |
---|
2 | !- |
---|
3 | !$Id$ |
---|
4 | !--------------------------------------------------------------------- |
---|
5 | !- This program provide a an example of the basic usage of HIST. |
---|
6 | !- No secial features are used but just the basics. |
---|
7 | !--------------------------------------------------------------------- |
---|
8 | USE ioipsl |
---|
9 | ! |
---|
10 | IMPLICIT NONE |
---|
11 | ! |
---|
12 | INTEGER,PARAMETER :: iim=96, jjm=96, llm=12, nbreg=200 |
---|
13 | ! |
---|
14 | REAL :: champ1(iim,jjm), champ2(iim,jjm,llm), champ3(iim,jjm) |
---|
15 | REAL :: lon(iim,jjm),lat(iim,jjm), lev(llm) |
---|
16 | REAL :: lon_test(iim),lat_test(jjm) |
---|
17 | REAL :: x |
---|
18 | ! |
---|
19 | INTEGER :: i, j, l, id, it, ij, sig_id, hori_id |
---|
20 | INTEGER :: day=15, month=2, year=1997 |
---|
21 | INTEGER :: itau=0, index(nbreg), start |
---|
22 | ! |
---|
23 | REAL :: julday |
---|
24 | REAL :: deltat=60., dt_wrt, dt_op |
---|
25 | CHARACTER(LEN=20) :: histname |
---|
26 | ! |
---|
27 | REAL :: pi=3.1415 |
---|
28 | !--------------------------------------------------------------------- |
---|
29 | !- |
---|
30 | ! 1.0 Define a few variables we will need. These are the coordinates |
---|
31 | ! the file name and the date. |
---|
32 | !- |
---|
33 | DO i=1,iim |
---|
34 | DO j=1,jjm |
---|
35 | lon(i,j) = ((float(iim/2)+0.5)-float(i))*pi/float(iim/2) & |
---|
36 | & *(-1.)*180./pi |
---|
37 | lat(i,j) = 180./pi*ASIN(((float(jjm/2)+0.5)-float(j)) & |
---|
38 | & /float(jjm/2)) |
---|
39 | ENDDO |
---|
40 | ENDDO |
---|
41 | !- |
---|
42 | lon_test(:) = lon(:,1) |
---|
43 | lat_test(:) = lat(1,:) |
---|
44 | !- |
---|
45 | DO l=1,llm |
---|
46 | lev(l) = REAL(l)/llm |
---|
47 | ENDDO |
---|
48 | ! |
---|
49 | histname = 'testhist1.nc' |
---|
50 | !- |
---|
51 | ! 1.1 The chosen date is 15 Feb. 1997 as stated above. |
---|
52 | ! It has to be transformed into julian days using |
---|
53 | ! the calendar provided by IOIPSL. |
---|
54 | !- |
---|
55 | CALL ymds2ju(year, month, day, 0.,julday) |
---|
56 | dt_wrt = 3*deltat |
---|
57 | dt_op = 3*deltat |
---|
58 | !- |
---|
59 | ! 2.0 Do all the declarations for hist. That is define the file, |
---|
60 | ! the vertical coordinate and the variables in the file. |
---|
61 | !- |
---|
62 | CALL ioconf_modname('testhist1 produced this file') |
---|
63 | !- |
---|
64 | CALL histbeg (histname,iim,lon_test,jjm,lat_test, & |
---|
65 | & 1,iim,1,jjm,itau,julday,deltat,hori_id,id) |
---|
66 | !- |
---|
67 | CALL histvert (id,"sigma","Sigma levels"," ",llm,lev,sig_id,pdirect="up") |
---|
68 | !- |
---|
69 | CALL histdef (id,"champ1","Some field","m", & |
---|
70 | & iim,jjm,hori_id,1,1,1,-99,32,"inst(scatter(x))", & |
---|
71 | & dt_op,dt_wrt,var_range=(/1.,-1./)) |
---|
72 | !- |
---|
73 | CALL histdef (id,"champ2","Another field","m", & |
---|
74 | & iim,jjm,hori_id,llm,1,llm,sig_id,32,"t_max(max(x,1.0)*2)", & |
---|
75 | & deltat,dt_wrt,var_range=(/0.,90./)) |
---|
76 | !- |
---|
77 | CALL histdef (id,"champ3","A field without time","m", & |
---|
78 | & iim,jjm,hori_id,1,1,1,-99, 32,"once", & |
---|
79 | & deltat,dt_wrt) |
---|
80 | !- |
---|
81 | CALL histend (id) |
---|
82 | !- |
---|
83 | ! 2.1 The filed we are going to write are computes |
---|
84 | !- |
---|
85 | x = 10. |
---|
86 | CALL RANDOM_NUMBER(HARVEST=x) |
---|
87 | CALL RANDOM_NUMBER(champ1) |
---|
88 | champ3 = champ1 |
---|
89 | DO l=1,llm |
---|
90 | champ2(:,:,l) = champ1*l |
---|
91 | ENDDO |
---|
92 | !- |
---|
93 | ! 3.0 Start the time steping and write the data as we go along. |
---|
94 | !- |
---|
95 | start = 1 |
---|
96 | !- |
---|
97 | DO it=1,12 |
---|
98 | !--- |
---|
99 | ! 3.1 In the 2D filed we will have a set of random numbers |
---|
100 | ! which move through the map. |
---|
101 | !--- |
---|
102 | ij = 0 |
---|
103 | DO j=1,nbreg/10 |
---|
104 | DO i=1,10 |
---|
105 | ij = ij+1 |
---|
106 | index(ij) = iim*(j+20)+(i+start) |
---|
107 | ENDDO |
---|
108 | ENDDO |
---|
109 | !--- |
---|
110 | IF (start < iim-10) THEN |
---|
111 | start = start+10 |
---|
112 | ELSE |
---|
113 | start = 1 |
---|
114 | ENDIF |
---|
115 | !--- |
---|
116 | itau = itau + 1 |
---|
117 | !--- |
---|
118 | ! 3.2 Pass the data to HIST for operation and writing. |
---|
119 | !--- |
---|
120 | CALL histwrite (id,"champ1",itau,champ1,nbreg,index) |
---|
121 | CALL histwrite (id,"champ2",itau,champ2,iim*jjm*llm,index) |
---|
122 | CALL histwrite (id,"champ3",itau,champ3,iim*jjm,index) |
---|
123 | champ1 = champ1+1 |
---|
124 | champ2 = champ2+2 |
---|
125 | ENDDO |
---|
126 | !- |
---|
127 | ! 4.0 The HIST routines are ended and netCDF is closed |
---|
128 | !- |
---|
129 | CALL histclo () |
---|
130 | !-------------------- |
---|
131 | END PROGRAM testhist1 |
---|