source: LMDZ4/trunk/libf/phylmd/ini_histrac.h @ 1068

Last change on this file since 1068 was 1030, checked in by lmdzadmin, 16 years ago

Nettoyage de commentaires + correction d'un bug dans le cas sans convection
FH/IM
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 5.0 KB
Line 
1!
2! $Header$
3!
4      IF (config_inca == 'none') THEN
5c$OMP MASTER
6         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
7c
8         CALL histbeg_phy("histrac", itau_phy, zjulian, pdtphys,
9     .                 nhori, nid_tra)
10         CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb",
11     .                 klev, presnivs, nvert)
12
13
14
15         zsto = pdtphys
16         zout = ecrit_tra
17c
18         CALL histdef(nid_tra, "phis", "Surface geop. height", "-",
19     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
20     .                "once",  zsto,zout)
21c
22         CALL histdef(nid_tra, "aire", "Grid area", "-",
23     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
24     .                "once",  zsto,zout)
25         DO it=1,nqmax
26C champ 2D
27         iq=it+2
28         iiq=niadv(iq)
29         CALL histdef(nid_tra, tnom(iq), ttext(iiq), "U/kga",
30     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
31     .                "ave(X)", zsto,zout)
32         if (lessivage) THEN
33         CALL histdef(nid_tra, "fl"//tnom(iq),"Flux "//ttext(iiq),
34     .              "U/m2/s",iim,jj_nb,nhori, klev,1,klev,nvert, 32,
35     .              "ave(X)", zsto,zout)
36         endif
37
38c---Ajout Olivia
39         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
40     .                "tendance thermique"// ttext(iiq), "?",
41     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
42     .                "ave(X)", zsto,zout)
43c
44         if(iflag_con.GE.2) then
45         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
46     .                "tendance convection"// ttext(iiq), "?",
47     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
48     .                "ave(X)", zsto,zout)
49             endif !(iflag_con.GE.2) then
50         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
51     .                "tendance couche limite"// ttext(iiq), "?",
52     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
53     .                "ave(X)", zsto,zout)
54c---fin Olivia   
55
56         ENDDO
57
58         CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
59     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
60     .                "inst(X)",  zout,zout)
61
62         CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",
63     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
64     .                "inst(X)",  zout,zout)
65         CALL histdef(nid_tra, "psrf1", "nature sol", "-",
66     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
67     .                "inst(X)",  zout,zout)
68         CALL histdef(nid_tra, "psrf2", "nature sol", "-",
69     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
70     .                "inst(X)",  zout,zout)
71         CALL histdef(nid_tra, "psrf3", "nature sol", "-",
72     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
73     .                "inst(X)",  zout,zout)
74         CALL histdef(nid_tra, "psrf4", "nature sol", "-",
75     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
76     .                "inst(X)",  zout,zout)
77         CALL histdef(nid_tra, "ftsol1", "temper sol", "-",
78     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
79     .                "inst(X)",  zout,zout)
80         CALL histdef(nid_tra, "ftsol2", "temper sol", "-",
81     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
82     .                "inst(X)",  zout,zout)
83         CALL histdef(nid_tra, "ftsol3", "temper sol", "-",
84     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
85     .                "inst",  zout,zout)
86         CALL histdef(nid_tra, "ftsol4", "temper sol", "-",
87     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
88     .                "inst(X)",  zout,zout)
89         CALL histdef(nid_tra, "pplay", "flux u mont","-",
90     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
91     .                "inst(X)", zout,zout)
92         CALL histdef(nid_tra, "t", "flux u mont","-",
93     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
94     .                "inst(X)", zout,zout)
95         CALL histdef(nid_tra, "mfu", "flux u mont","-",
96     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
97     .                "ave(X)", zsto,zout)
98         CALL histdef(nid_tra, "mfd", "flux u decen","-",
99     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
100     .                "ave(X)", zsto,zout)
101         CALL histdef(nid_tra, "en_u", "flux u mont","-",
102     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
103     .                "ave(X)", zsto,zout)
104         CALL histdef(nid_tra, "en_d", "flux u mont","-",
105     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
106     .                "ave(X)", zsto,zout)
107         CALL histdef(nid_tra, "de_d", "flux u mont","-",
108     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
109     .                "ave(X)", zsto,zout)
110         CALL histdef(nid_tra, "de_u", "flux u decen","-",
111     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
112     .                "ave(X)", zsto,zout)
113         CALL histdef(nid_tra, "coefh", "turbulent coef","-",
114     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
115     .                "ave(X)", zsto,zout)
116
117c
118         CALL histend(nid_tra)
119         ndex2d = 0
120         ndex3d = 0
121         ndex = 0
122c$OMP END MASTER
123      END IF
Note: See TracBrowser for help on using the repository browser.