1 | |
---|
2 | IF (ok_hf) THEN |
---|
3 | c |
---|
4 | PRINT*, 'La frequence de sortie instant. est de ', ecrit_hf |
---|
5 | |
---|
6 | cccIM CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian) |
---|
7 | idayref = day_ref |
---|
8 | CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) |
---|
9 | |
---|
10 | c |
---|
11 | CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) |
---|
12 | DO i = 1, iim |
---|
13 | zx_lon(i,1) = rlon(i+1) |
---|
14 | zx_lon(i,jjmp1) = rlon(i+1) |
---|
15 | ENDDO |
---|
16 | |
---|
17 | CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) |
---|
18 | |
---|
19 | cccIM CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat, |
---|
20 | CALL histbeg("histhf", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), |
---|
21 | . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, |
---|
22 | . nhori, nid_hf) |
---|
23 | |
---|
24 | CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", |
---|
25 | . klev, presnivs, nvert) |
---|
26 | zsto = dtime |
---|
27 | |
---|
28 | c pour les champs instantannes, il faut mettre la meme valeur pour |
---|
29 | c zout et tsto. |
---|
30 | c dtime est passe par ailleurs a histbeg |
---|
31 | |
---|
32 | zout = dtime * REAL(NINT(86400./dtime*ecrit_hf)) |
---|
33 | zsto = zout |
---|
34 | print*,'zout,zsto=',zout,zsto |
---|
35 | |
---|
36 | c |
---|
37 | c CALL histdef(nid_hf, "phis", "Surface geop. height", "-", |
---|
38 | c . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
39 | c . "once", zsto,zout) |
---|
40 | c |
---|
41 | c CALL histdef(nid_hf, "aire", "Grid area", "-", |
---|
42 | c . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
43 | c . "once", zsto,zout) |
---|
44 | c |
---|
45 | c Champs 2D: |
---|
46 | c |
---|
47 | CALL histdef(nid_hf, "tsol", "Surface Temperature", "K", |
---|
48 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
49 | . "inst(X)", zsto,zout) |
---|
50 | c |
---|
51 | CALL histdef(nid_hf, "psol", "Surface Pressure", "Pa", |
---|
52 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
53 | . "inst(X)", zsto,zout) |
---|
54 | c |
---|
55 | print*,'ATTENTION METTRE AVE(X) POUR LES PRECIPS' |
---|
56 | |
---|
57 | CALL histdef(nid_hf, "rain", "Precipitation", "mm/d", |
---|
58 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
59 | . "inst(X)", zsto,zout) |
---|
60 | c |
---|
61 | CALL histdef(nid_hf, "u850", "Zonal wind 850mb", "m/s", |
---|
62 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
63 | . "inst(X)", zsto,zout) |
---|
64 | |
---|
65 | CALL histdef(nid_hf, "v850", "Meridional wind 850mb", "m/s", |
---|
66 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
67 | . "inst(X)", zsto,zout) |
---|
68 | c |
---|
69 | CALL histdef(nid_hf, "u500", "Zonal wind 500mb", "m/s", |
---|
70 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
71 | . "inst(X)", zsto,zout) |
---|
72 | |
---|
73 | CALL histdef(nid_hf, "v500", "Meridional wind 500mb", "m/s", |
---|
74 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
75 | . "inst(X)", zsto,zout) |
---|
76 | |
---|
77 | CALL histdef(nid_hf, "u200", "Zonal wind 200mb", "m/s", |
---|
78 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
79 | . "inst(X)", zsto,zout) |
---|
80 | |
---|
81 | CALL histdef(nid_hf, "v200", "Meridional wind 200mb", "m/s", |
---|
82 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
83 | . "inst(X)", zsto,zout) |
---|
84 | |
---|
85 | CALL histdef(nid_hf, "phi500", "Geopotentiel a 500mb", "m2/s2", |
---|
86 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
87 | . "inst(X)", zsto,zout) |
---|
88 | |
---|
89 | cIM cf FH |
---|
90 | CALL histdef(nid_hf,"u1","Zonal wind at 1st layer", "m/s", |
---|
91 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
92 | . "inst(X)", zsto,zout) |
---|
93 | |
---|
94 | CALL histdef(nid_hf,"v1","Meridional wind at 1st layer", |
---|
95 | . "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
96 | . "inst(X)", zsto,zout) |
---|
97 | |
---|
98 | CALL histdef(nid_hf, "cdrm", " Momentum drag coef.", "-", |
---|
99 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
100 | . "inst(X)", zsto,zout) |
---|
101 | |
---|
102 | CALL histdef(nid_hf, "cdrh", "Heat drag coef.", "-", |
---|
103 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
104 | . "inst(X)", zsto,zout) |
---|
105 | |
---|
106 | c |
---|
107 | CALL histend(nid_hf) |
---|
108 | |
---|
109 | endif ! ok_hf |
---|