22 |
USE histvert_m, ONLY: histvert |
USE histvert_m, ONLY: histvert |
23 |
USE calendar, ONLY: ymds2ju |
USE calendar, ONLY: ymds2ju |
24 |
USE dimens_m, ONLY: jjm, llm |
USE dimens_m, ONLY: jjm, llm |
25 |
USE comvert, ONLY: presnivs |
USE disvert_m, ONLY: presnivs |
26 |
USE comgeom, ONLY: rlatv |
USE comgeom, ONLY: rlatv |
27 |
USE temps, ONLY: annee_ref, day_ref, itau_dyn |
USE temps, ONLY: annee_ref, day_ref, itau_dyn |
28 |
USE nr_util, ONLY: pi |
USE nr_util, ONLY: pi |
73 |
|
|
74 |
! Appel à histvert pour la grille verticale |
! Appel à histvert pour la grille verticale |
75 |
|
|
76 |
call histvert(fileid, 'presnivs', 'Niveaux sigma', 'mb', llm, presnivs, & |
call histvert(fileid, 'presnivs', 'Niveaux sigma', 'mb', presnivs, vertiid) |
|
vertiid) |
|
77 |
|
|
78 |
! Appels à histdef pour la définition des variables à sauvegarder |
! Appels à histdef pour la définition des variables à sauvegarder |
79 |
do iQ = 1, nQ |
do iQ = 1, nQ |