17 |
use comconst, only: dtvr |
use comconst, only: dtvr |
18 |
USE dimensions, ONLY: jjm, llm, nqmx |
USE dimensions, ONLY: jjm, llm, nqmx |
19 |
USE disvert_m, ONLY: presnivs |
USE disvert_m, ONLY: presnivs |
20 |
use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv |
use dynetat0_m, only: itau_dyn, rlatu, rlatv, rlonu, rlonv |
21 |
|
USE dynetat0_chosen_m, ONLY: day_ref, annee_ref |
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 |
26 |
USE iniadvtrac_m, ONLY: ttext |
USE iniadvtrac_m, ONLY: ttext |
27 |
USE nr_util, ONLY: pi |
USE nr_util, ONLY: pi |
28 |
USE paramet_m, ONLY: iip1, jjp1 |
USE paramet_m, ONLY: iip1, jjp1 |
|
USE temps, ONLY: itau_dyn |
|
29 |
use ymds2ju_m, ONLY: ymds2ju |
use ymds2ju_m, ONLY: ymds2ju |
30 |
|
|
31 |
real, intent(in):: t_ops ! fréquence de l'opération pour IOIPSL |
real, intent(in):: t_ops ! fréquence de l'opération pour IOIPSL |