| 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 |
| 25 |
USE histvert_m, ONLY: histvert |
USE histvert_m, ONLY: histvert |
| 26 |
USE iniadvtrac_m, ONLY: ttext |
USE infotrac_init_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 |
| 69 |
thoriid, llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt) |
thoriid, llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt) |
| 70 |
call histdef(histid, 'theta', 'temperature potentielle', 'K', iip1, jjp1, & |
call histdef(histid, 'theta', 'temperature potentielle', 'K', iip1, jjp1, & |
| 71 |
thoriid, llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt) |
thoriid, llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt) |
| 72 |
call histdef(histid, 'phi', 'geopotentiel', '-', iip1, jjp1, thoriid, & |
call histdef(histid, 'phi', 'geopotential', 'm2 s-2', iip1, jjp1, thoriid, & |
| 73 |
llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt) |
llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt) |
| 74 |
|
|
| 75 |
! Traceurs |
! Traceurs |
Parent Directory
| 
Revision Log
| 
Patch