My Project
 All Classes Files Functions Variables Macros
ini_histhf3d.h
Go to the documentation of this file.
1 c $Header$
2 c
3 c sorties hf 3d
4 c
5  zstohf = ecrit_hf
6  zout = ecrit_hf
7 c
8 c PRINT*, 'La frequence de sortie hf3d est de ', ecrit_hf
9 c
10  idayref = day_ref
11  CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
12 c
13 
14 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
15 cym DO i = 1, iim
16 cym zx_lon(i,1) = rlon(i+1)
17 cym zx_lon(i,jjmp1) = rlon(i+1)
18 cym ENDDO
19 
20 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
21 
22 cccIM CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat,
23 cym CALL histbeg("histhf3d", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
24 cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
25 cym . nhori, nid_hf3d)
26  CALL histbeg_phy("histhf3d", itau_phy, zjulian, dtime,
27  . nhori, nid_hf3d)
28 
29  CALL histvert(nid_hf3d, "presnivs", "Vertical levels", "mb",
30  . klev, presnivs/100., nvert)
31 c
32 c Champs 3D:
33 c
34  CALL histdef(nid_hf3d, "temp", "Air temperature", "K",
35  . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
36  . "ave(X)", zstohf,zout)
37 c
38  CALL histdef(nid_hf3d, "ovap", "Specific humidity", "kg/kg",
39  . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
40  . "ave(X)", zstohf,zout)
41 c
42  CALL histdef(nid_hf3d, "vitu", "Zonal wind", "m/s",
43  . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
44  . "ave(X)", zstohf,zout)
45 c
46  CALL histdef(nid_hf3d, "vitv", "Meridional wind", "m/s",
47  . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
48  . "ave(X)", zstohf,zout)
49 c
50  CALL histend(nid_hf3d)
51 c