14 |
! Routine d'initialisation des écritures des fichiers histoires au |
! Routine d'initialisation des écritures des fichiers histoires au |
15 |
! format IOIPSL. Initialisation du fichier histoire moyenne. |
! format IOIPSL. Initialisation du fichier histoire moyenne. |
16 |
|
|
|
use calendar, ONLY: ymds2ju |
|
17 |
USE comgeom, ONLY: rlatu, rlonv |
USE comgeom, ONLY: rlatu, rlonv |
18 |
USE dimens_m, ONLY: llm |
USE dimens_m, ONLY: llm |
19 |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
24 |
USE nr_util, ONLY: pi |
USE nr_util, ONLY: pi |
25 |
USE paramet_m, ONLY: iip1, jjp1 |
USE paramet_m, ONLY: iip1, jjp1 |
26 |
USE temps, ONLY: itau_dyn |
USE temps, ONLY: itau_dyn |
27 |
|
use ymds2ju_m, ONLY: ymds2ju |
28 |
|
|
29 |
integer, intent(in):: day0, anne0 ! date de référence |
integer, intent(in):: day0, anne0 ! date de référence |
30 |
real, intent(in):: tstep ! fréquence d'écriture |
real, intent(in):: tstep ! fréquence d'écriture |
35 |
! Variables locales |
! Variables locales |
36 |
integer horiid, zvertiid |
integer horiid, zvertiid |
37 |
real julian |
real julian |
38 |
integer iq, ii, jj, l |
integer iq, l |
39 |
|
|
40 |
!---------------------------------------------------- |
!---------------------------------------------------- |
41 |
|
|