11 |
! From initdynav.F, version 1.1.1.1, 2004/05/19 12:53:05 |
! From initdynav.F, version 1.1.1.1, 2004/05/19 12:53:05 |
12 |
! L. Fairhead, LMD |
! L. Fairhead, LMD |
13 |
|
|
|
USE histcom, ONLY: histbeg_totreg, histdef, histend, histvert |
|
14 |
use calendar, ONLY: ymds2ju |
use calendar, ONLY: ymds2ju |
|
USE dimens_m, ONLY : llm |
|
|
USE paramet_m, ONLY : iip1, jjp1 |
|
|
USE comconst, ONLY : pi |
|
15 |
USE comvert, ONLY : nivsigs |
USE comvert, ONLY : nivsigs |
16 |
USE comgeom, ONLY : rlatu, rlonv |
USE comgeom, ONLY : rlatu, rlonv |
17 |
USE temps, ONLY : itau_dyn |
USE dimens_m, ONLY : llm |
18 |
|
USE histcom, ONLY: histbeg_totreg, histdef, histend, histvert |
19 |
USE iniadvtrac_m, ONLY : ttext |
USE iniadvtrac_m, ONLY : ttext |
20 |
|
USE nr_util, ONLY : pi |
21 |
|
USE paramet_m, ONLY : iip1, jjp1 |
22 |
|
USE temps, ONLY : itau_dyn |
23 |
|
|
24 |
! Routine d'initialisation des ecritures des fichiers histoires LMDZ |
! Routine d'initialisation des ecritures des fichiers histoires LMDZ |
25 |
! au format IOIPSL. Initialisation du fichier histoire moyenne. |
! au format IOIPSL. Initialisation du fichier histoire moyenne. |