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

Last change on this file since 979 was 973, checked in by lmdzadmin, 16 years ago

Initialisations : concvl, cv3_routines, cva_driver, physiq
Correction bug i0 + ajout tests : cv3p1_closure
Ajout sorties : ale, alp, cin, wape
Ajout variables wake : phyetat0, phyredem
IM
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 5.4 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
8cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
9cym         DO i = 1, iim
10cym            zx_lon(i,1) = xlon(i+1)
11cym            zx_lon(i,jjm+1) = xlon(i+1)
12cym         ENDDO
13cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
14cym         CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
15cym     .                 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
16cym     .                 nhori, nid_tra)
17         CALL histbeg_phy("histrac", itau_phy, zjulian, pdtphys,
18     .                 nhori, nid_tra)
19         CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb",
20     .                 klev, presnivs, nvert)
21
22
23
24         zsto = pdtphys
25         zout = ecrit_tra
26c
27         CALL histdef(nid_tra, "phis", "Surface geop. height", "-",
28     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
29     .                "once",  zsto,zout)
30c
31         CALL histdef(nid_tra, "aire", "Grid area", "-",
32     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
33     .                "once",  zsto,zout)
34         DO it=1,nqmax
35C champ 2D
36         iq=it+2
37         iiq=niadv(iq)
38         CALL histdef(nid_tra, tnom(iq), ttext(iiq), "U/kga",
39     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
40     .                "ave(X)", zsto,zout)
41         if (lessivage) THEN
42         CALL histdef(nid_tra, "fl"//tnom(iq),"Flux "//ttext(iiq),
43     .              "U/m2/s",iim,jj_nb,nhori, klev,1,klev,nvert, 32,
44     .              "ave(X)", zsto,zout)
45         endif
46
47c---Ajout Olivia
48         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
49     .                "tendance thermique"// ttext(iiq), "?",
50     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
51     .                "ave(X)", zsto,zout)
52c
53         if(iflag_con.GE.2) then
54         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
55     .                "tendance convection"// ttext(iiq), "?",
56     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
57     .                "ave(X)", zsto,zout)
58             endif !(iflag_con.GE.2) then
59         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
60     .                "tendance couche limite"// ttext(iiq), "?",
61     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
62     .                "ave(X)", zsto,zout)
63c---fin Olivia   
64
65         ENDDO
66
67         CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
68     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
69     .                "inst(X)",  zout,zout)
70
71         CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",
72     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
73     .                "inst(X)",  zout,zout)
74         CALL histdef(nid_tra, "psrf1", "nature sol", "-",
75     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
76     .                "inst(X)",  zout,zout)
77         CALL histdef(nid_tra, "psrf2", "nature sol", "-",
78     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
79     .                "inst(X)",  zout,zout)
80         CALL histdef(nid_tra, "psrf3", "nature sol", "-",
81     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
82     .                "inst(X)",  zout,zout)
83         CALL histdef(nid_tra, "psrf4", "nature sol", "-",
84     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
85     .                "inst(X)",  zout,zout)
86         CALL histdef(nid_tra, "ftsol1", "temper sol", "-",
87     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
88     .                "inst(X)",  zout,zout)
89         CALL histdef(nid_tra, "ftsol2", "temper sol", "-",
90     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
91     .                "inst(X)",  zout,zout)
92         CALL histdef(nid_tra, "ftsol3", "temper sol", "-",
93     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
94     .                "inst",  zout,zout)
95         CALL histdef(nid_tra, "ftsol4", "temper sol", "-",
96     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
97     .                "inst(X)",  zout,zout)
98         CALL histdef(nid_tra, "pplay", "flux u mont","-",
99     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
100     .                "inst(X)", zout,zout)
101         CALL histdef(nid_tra, "t", "flux u mont","-",
102     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
103     .                "inst(X)", zout,zout)
104         CALL histdef(nid_tra, "mfu", "flux u mont","-",
105     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
106     .                "ave(X)", zsto,zout)
107         CALL histdef(nid_tra, "mfd", "flux u decen","-",
108     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
109     .                "ave(X)", zsto,zout)
110         CALL histdef(nid_tra, "en_u", "flux u mont","-",
111     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
112     .                "ave(X)", zsto,zout)
113         CALL histdef(nid_tra, "en_d", "flux u mont","-",
114     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
115     .                "ave(X)", zsto,zout)
116         CALL histdef(nid_tra, "de_d", "flux u mont","-",
117     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
118     .                "ave(X)", zsto,zout)
119         CALL histdef(nid_tra, "de_u", "flux u decen","-",
120     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
121     .                "ave(X)", zsto,zout)
122         CALL histdef(nid_tra, "coefh", "turbulent coef","-",
123     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
124     .                "ave(X)", zsto,zout)
125
126c
127         CALL histend(nid_tra)
128         ndex2d = 0
129         ndex3d = 0
130         ndex = 0
131c$OMP END MASTER
132      END IF
Note: See TracBrowser for help on using the repository browser.