source: LMDZ4/trunk/libf/phy_IPCC_AR4/ini_histrac.h @ 953

Last change on this file since 953 was 868, checked in by Laurent Fairhead, 17 years ago

Preparation du remplacement de la physique utilisee pour l'exercice IPCC_AR4
par la version de la physique avec thermique. On garde le repertoire phylmd
pour un petit moment pour que les utilisateurs ne soient pas trop perdus ...
phy_IPCC_AR4 = phylmd
LF
  • 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#ifndef INCA
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 = pdtphys * 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)
52         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
53     .                "tendance convection"// ttext(iiq), "?",
54     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
55     .                "ave(X)", zsto,zout)
56         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
57     .                "tendance couche limite"// ttext(iiq), "?",
58     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
59     .                "ave(X)", zsto,zout)
60c---fin Olivia   
61
62         ENDDO
63
64         CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
65     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
66     .                "inst(X)",  zout,zout)
67
68         CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",
69     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
70     .                "inst(X)",  zout,zout)
71         CALL histdef(nid_tra, "psrf1", "nature sol", "-",
72     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
73     .                "inst(X)",  zout,zout)
74         CALL histdef(nid_tra, "psrf2", "nature sol", "-",
75     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
76     .                "inst(X)",  zout,zout)
77         CALL histdef(nid_tra, "psrf3", "nature sol", "-",
78     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
79     .                "inst(X)",  zout,zout)
80         CALL histdef(nid_tra, "psrf4", "nature sol", "-",
81     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
82     .                "inst(X)",  zout,zout)
83         CALL histdef(nid_tra, "ftsol1", "temper sol", "-",
84     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
85     .                "inst(X)",  zout,zout)
86         CALL histdef(nid_tra, "ftsol2", "temper sol", "-",
87     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
88     .                "inst(X)",  zout,zout)
89         CALL histdef(nid_tra, "ftsol3", "temper sol", "-",
90     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
91     .                "inst",  zout,zout)
92         CALL histdef(nid_tra, "ftsol4", "temper sol", "-",
93     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
94     .                "inst(X)",  zout,zout)
95         CALL histdef(nid_tra, "pplay", "flux u mont","-",
96     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
97     .                "inst(X)", zout,zout)
98         CALL histdef(nid_tra, "t", "flux u mont","-",
99     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
100     .                "inst(X)", zout,zout)
101         CALL histdef(nid_tra, "mfu", "flux u mont","-",
102     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
103     .                "ave(X)", zsto,zout)
104         CALL histdef(nid_tra, "mfd", "flux u decen","-",
105     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
106     .                "ave(X)", zsto,zout)
107         CALL histdef(nid_tra, "en_u", "flux u mont","-",
108     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
109     .                "ave(X)", zsto,zout)
110         CALL histdef(nid_tra, "en_d", "flux u mont","-",
111     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
112     .                "ave(X)", zsto,zout)
113         CALL histdef(nid_tra, "de_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_u", "flux u decen","-",
117     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
118     .                "ave(X)", zsto,zout)
119         CALL histdef(nid_tra, "coefh", "turbulent coef","-",
120     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
121     .                "ave(X)", zsto,zout)
122
123c
124         CALL histend(nid_tra)
125         ndex2d = 0
126         ndex3d = 0
127         ndex = 0
128c$OMP END MASTER
129#endif
Note: See TracBrowser for help on using the repository browser.