19 |
USE conf_gcm_m, ONLY: day_step, iperiod, periodav |
USE conf_gcm_m, ONLY: day_step, iperiod, periodav |
20 |
USE dimens_m, ONLY: jjm, llm |
USE dimens_m, ONLY: jjm, llm |
21 |
USE disvert_m, ONLY: presnivs |
USE disvert_m, ONLY: presnivs |
22 |
|
use dynetat0_m, only: day_ref, annee_ref |
23 |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
24 |
USE histdef_m, ONLY: histdef |
USE histdef_m, ONLY: histdef |
25 |
USE histend_m, ONLY: histend |
USE histend_m, ONLY: histend |
26 |
USE histvert_m, ONLY: histvert |
USE histvert_m, ONLY: histvert |
27 |
USE nr_util, ONLY: pi |
USE nr_util, ONLY: pi |
28 |
USE temps, ONLY: annee_ref, day_ref, itau_dyn |
USE temps, ONLY: itau_dyn |
29 |
USE ymds2ju_m, ONLY: ymds2ju |
USE ymds2ju_m, ONLY: ymds2ju |
30 |
|
|
31 |
real, intent(in):: dt_app |
real, intent(in):: dt_app |
48 |
|
|
49 |
integer horiid, vertiid |
integer horiid, vertiid |
50 |
real julian |
real julian |
|
integer an, dayref |
|
51 |
real rlong(jjm), rlatg(jjm) |
real rlong(jjm), rlatg(jjm) |
52 |
|
|
53 |
!----------------------------------------------------------------- |
!----------------------------------------------------------------- |
61 |
|
|
62 |
! Initialisation du fichier contenant les moyennes zonales |
! Initialisation du fichier contenant les moyennes zonales |
63 |
|
|
64 |
an = annee_ref |
CALL ymds2ju(annee_ref, 1, day_ref, 0.0, julian) |
|
dayref = day_ref |
|
|
CALL ymds2ju(an, 1, dayref, 0.0, julian) |
|
65 |
|
|
66 |
rlong = 0. |
rlong = 0. |
67 |
rlatg = rlatv * 180. / pi |
rlatg = rlatv * 180. / pi |