141 |
c Initialisation du fichier contenant les moyennes zonales. |
c Initialisation du fichier contenant les moyennes zonales. |
142 |
c --------------------------------------------------------- |
c --------------------------------------------------------- |
143 |
|
|
|
character*10 infile |
|
|
|
|
144 |
integer fileid |
integer fileid |
145 |
integer thoriid, zvertiid |
integer thoriid, zvertiid |
146 |
save fileid |
save fileid |
149 |
|
|
150 |
C Variables locales |
C Variables locales |
151 |
C |
C |
|
integer tau0 |
|
152 |
real zjulian |
real zjulian |
153 |
character*3 str |
character*3 str |
154 |
character*10 ctrac |
character*10 ctrac |
184 |
|
|
185 |
if (i_sortie.eq.1) then |
if (i_sortie.eq.1) then |
186 |
file='dynzon' |
file='dynzon' |
187 |
call inigrads(ifile |
call inigrads(ifile ,(/0./),180./pi,0.,0.,rlatv,-90.,90., |
188 |
s ,(/0./),180./pi,0.,0.,rlatv,-90.,90.,180./pi |
$ 180./pi ,presnivs,1. ,dt_cum,file,'dyn_zon ') |
|
s ,presnivs,1. |
|
|
s ,dt_cum,file,'dyn_zon ') |
|
189 |
endif |
endif |
190 |
|
|
191 |
nom(itemp)='T' |
nom(itemp)='T' |
208 |
c Initialisation du fichier contenant les moyennes zonales. |
c Initialisation du fichier contenant les moyennes zonales. |
209 |
c --------------------------------------------------------- |
c --------------------------------------------------------- |
210 |
|
|
|
infile='dynzon' |
|
|
|
|
211 |
zan = annee_ref |
zan = annee_ref |
212 |
dayref = day_ref |
dayref = day_ref |
213 |
CALL ymds2ju(zan, 1, dayref, 0.0, zjulian) |
CALL ymds2ju(zan, 1, dayref, 0.0, zjulian) |
|
tau0 = itau_dyn |
|
214 |
|
|
215 |
rlong=0. |
rlong=0. |
216 |
rlatg=rlatv*180./pi |
rlatg=rlatv*180./pi |
217 |
|
|
218 |
call histbeg_totreg(infile, rlong(:1), rlatg, |
call histbeg_totreg('dynzon', rlong(:1), rlatg, |
219 |
. 1, 1, 1, jjm, |
. 1, 1, 1, jjm, |
220 |
. tau0, zjulian, dt_cum, thoriid, fileid) |
. itau_dyn, zjulian, dt_cum, thoriid, fileid) |
221 |
|
|
222 |
C |
C |
223 |
C Appel a histvert pour la grille verticale |
C Appel a histvert pour la grille verticale |