2 |
|
|
3 |
implicit none |
implicit none |
4 |
|
|
5 |
|
integer, save:: nid_ins |
6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
subroutine ini_histins(dtime, ok_instan, nid_ins, itau_phy) |
subroutine ini_histins(dtime) |
10 |
|
|
11 |
! 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 |
12 |
|
|
13 |
use clesphys, only: ecrit_ins |
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 |
16 |
use dimphy, only: klon |
use dimphy, only: klon |
23 |
use indicesol, only: nbsrf, clnsurf |
use indicesol, only: nbsrf, clnsurf |
24 |
use iniadvtrac_m, only: tname, ttext |
use iniadvtrac_m, only: tname, ttext |
25 |
use nr_util, only: pi |
use nr_util, only: pi |
26 |
|
use phyetat0_m, only: itau_phy |
27 |
USE ymds2ju_m, only: ymds2ju |
USE ymds2ju_m, only: ymds2ju |
28 |
|
|
29 |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
REAL, intent(in):: dtime ! pas temporel de la physique (s) |
|
logical, intent(in):: ok_instan |
|
|
integer, intent(out):: nid_ins |
|
|
integer, intent(in):: itau_phy |
|
30 |
|
|
31 |
! Local: |
! Local: |
32 |
real zjulian, zsto, zout |
real zjulian, zsto, zout |
155 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
156 |
|
|
157 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
|
|
|
158 |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
159 |
"% "//clnsurf(nsrf), "%", & |
"% "//clnsurf(nsrf), "%", & |
160 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
199 |
"rugosite "//clnsurf(nsrf), "-", & |
"rugosite "//clnsurf(nsrf), "-", & |
200 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
201 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
|
!XXX |
|
202 |
END DO |
END DO |
203 |
|
|
204 |
CALL histdef(nid_ins, "rugs", "rugosity", "-", & |
CALL histdef(nid_ins, "rugs", "rugosity", "-", & |
205 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
206 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
250 |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
iim, (jjm + 1), nhori, 1, 1, 1, -99, & |
251 |
"inst(X)", zsto, zout) |
"inst(X)", zsto, zout) |
252 |
|
|
253 |
if (conv_emanuel) CALL histdef(nid_ins, "ptop", "cloud top pressure", & |
if (conv_emanuel) then |
254 |
"Pa", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
CALL histdef(nid_ins, "ptop", "cloud top pressure", & |
255 |
|
"Pa", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
256 |
|
CALL histdef(nid_ins, "dnwd0", "unsaturated downdraft", & |
257 |
|
"kg/m2/s", iim, jjm + 1, nhori, llm, 1, llm, nvert, "inst(X)", & |
258 |
|
zsto, zout) |
259 |
|
end if |
260 |
|
|
261 |
! Champs 3D: |
! Champs 3D: |
262 |
|
|