4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
subroutine ini_histins(dtime, ok_instan, nid_ins) |
subroutine ini_histins(dtime, ok_instan, nid_ins, itau_phy) |
8 |
|
|
9 |
! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09 |
! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09 |
10 |
|
|
11 |
use clesphys, only: ecrit_ins |
use clesphys, only: ecrit_ins |
12 |
|
use clesphys2, only: conv_emanuel |
13 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
14 |
use dimphy, only: klon |
use dimphy, only: klon |
15 |
use disvert_m, only: presnivs |
use disvert_m, only: presnivs |
21 |
use indicesol, only: nbsrf, clnsurf |
use indicesol, only: nbsrf, clnsurf |
22 |
use iniadvtrac_m, only: tname, ttext |
use iniadvtrac_m, only: tname, ttext |
23 |
use phyetat0_m, only: rlon, rlat |
use phyetat0_m, only: rlon, rlat |
|
use temps, only: itau_phy |
|
24 |
USE ymds2ju_m, only: ymds2ju |
USE ymds2ju_m, only: ymds2ju |
25 |
|
|
26 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
27 |
logical, intent(in):: ok_instan |
logical, intent(in):: ok_instan |
28 |
integer, intent(out):: nid_ins |
integer, intent(out):: nid_ins |
29 |
|
integer, intent(in):: itau_phy |
30 |
|
|
31 |
|
! Local: |
32 |
REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1) |
REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1) |
33 |
real zjulian, zsto, zout |
real zjulian, zsto, zout |
34 |
integer i, nhori, nvert, nsrf, iq, it |
integer i, nhori, nvert, nsrf, iq, it |
261 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
262 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
263 |
|
|
264 |
!IM cf. AM 081204 END |
if (conv_emanuel) CALL histdef(nid_ins, "ptop", "cloud top pressure", & |
265 |
|
"Pa", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
266 |
|
|
267 |
! Champs 3D: |
! Champs 3D: |
268 |
|
|
298 |
"kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
"kg m-2", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
299 |
zsto, zout) |
zsto, zout) |
300 |
|
|
301 |
|
CALL histdef(nid_ins, "rhum", "Relative humidity", & |
302 |
|
"", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
303 |
|
zsto, zout) |
304 |
|
|
305 |
DO it = 1, nqmx - 2 |
DO it = 1, nqmx - 2 |
306 |
! champ 2D |
! champ 2D |
307 |
iq=it+2 |
iq=it+2 |