20 |
USE histvert_m, ONLY : histvert |
USE histvert_m, ONLY : histvert |
21 |
USE dimens_m, ONLY: jjm, llm |
USE dimens_m, ONLY: jjm, llm |
22 |
USE paramet_m, ONLY: iip1, jjp1 |
USE paramet_m, ONLY: iip1, jjp1 |
23 |
USE comvert, ONLY: presnivs |
USE disvert_m, ONLY: presnivs |
24 |
USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv |
USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv |
25 |
USE temps, ONLY: itau_dyn |
USE temps, ONLY: itau_dyn |
26 |
USE iniadvtrac_m, ONLY: ttext |
USE iniadvtrac_m, ONLY: ttext |
82 |
|
|
83 |
! Appel a histvert pour la grille verticale |
! Appel a histvert pour la grille verticale |
84 |
|
|
85 |
call histvert(histid, 'presnivs', 'Niveaux pression','mb', llm, & |
call histvert(histid, 'presnivs', 'Niveaux pression','mb', presnivs/100., & |
86 |
|
zvertiid,'down') |
87 |
|
call histvert(histvid, 'presnivs', 'Niveaux pression','mb', & |
88 |
presnivs/100., zvertiid,'down') |
presnivs/100., zvertiid,'down') |
89 |
call histvert(histvid, 'presnivs', 'Niveaux pression','mb', llm, & |
call histvert(histuid, 'presnivs', 'Niveaux pression','mb', & |
|
presnivs/100., zvertiid,'down') |
|
|
call histvert(histuid, 'presnivs', 'Niveaux pression','mb', llm, & |
|
90 |
presnivs/100., zvertiid,'down') |
presnivs/100., zvertiid,'down') |
91 |
|
|
92 |
! Appels a histdef pour la definition des variables a sauvegarder |
! Appels a histdef pour la definition des variables a sauvegarder |