15 |
|
|
16 |
! From LMDZ4/libf/dyn3d/bilan_dyn.F, version 1.5 2005/03/16 10:12:17 |
! From LMDZ4/libf/dyn3d/bilan_dyn.F, version 1.5 2005/03/16 10:12:17 |
17 |
|
|
18 |
|
USE comgeom, ONLY: rlatv |
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 |
21 |
|
USE disvert_m, ONLY: presnivs |
22 |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
USE histbeg_totreg_m, ONLY: histbeg_totreg |
23 |
USE histdef_m, ONLY: histdef |
USE histdef_m, ONLY: histdef |
24 |
USE histend_m, ONLY: histend |
USE histend_m, ONLY: histend |
25 |
USE histvert_m, ONLY: histvert |
USE histvert_m, ONLY: histvert |
|
USE calendar, ONLY: ymds2ju |
|
|
USE dimens_m, ONLY: jjm, llm |
|
|
USE disvert_m, ONLY: presnivs |
|
|
USE comgeom, ONLY: rlatv |
|
|
USE temps, ONLY: annee_ref, day_ref, itau_dyn |
|
26 |
USE nr_util, ONLY: pi |
USE nr_util, ONLY: pi |
27 |
|
USE temps, ONLY: annee_ref, day_ref, itau_dyn |
28 |
|
USE ymds2ju_m, ONLY: ymds2ju |
29 |
|
|
30 |
real, intent(in):: dt_app |
real, intent(in):: dt_app |
31 |
|
|
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 |