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 |
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 |