13 |
use clesphys, only: ecrit_ins, ok_instan |
use clesphys, only: ecrit_ins, ok_instan |
14 |
use clesphys2, only: conv_emanuel |
use clesphys2, only: conv_emanuel |
15 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
|
use dimphy, only: klon |
|
16 |
use disvert_m, only: presnivs |
use disvert_m, only: presnivs |
17 |
use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv |
use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv |
18 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
259 |
|
|
260 |
! Champs 3D: |
! Champs 3D: |
261 |
|
|
262 |
|
CALL histdef(nid_ins, "tro3", "ozone mole fraction", "-", & |
263 |
|
iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", zsto, zout) |
264 |
|
|
265 |
CALL histdef(nid_ins, "temp", "Temperature", "K", & |
CALL histdef(nid_ins, "temp", "Temperature", "K", & |
266 |
iim, (jjm + 1), nhori, llm, 1, llm, nvert, & |
iim, (jjm + 1), nhori, llm, 1, llm, nvert, & |
267 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |