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

Last change on this file since 959 was 959, checked in by lsce, 17 years ago
  • Ajoute du parametre config_inca dans conf_gcm.F config_inca='none'(sans INCA, par defaut) config_inca='chem'(avec INCA config chemie) config_inca='aero'(avec INCA config aerosol)
  • Menage parmis les cles CPP INCA
  • Enleve le calcul d'omega dans calfis.F et active le calcul correspondant dans advtrac.F(avant uniquement pour INCA).
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 5.4 KB
RevLine 
[524]1!
2! $Header$
3!
[959]4      IF (config_inca == 'none') THEN
[766]5c$OMP MASTER
[524]6         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
7c
[766]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,
[524]18     .                 nhori, nid_tra)
19         CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb",
20     .                 klev, presnivs, nvert)
21
22
23
24         zsto = pdtphys
[956]25         zout = ecrit_tra
[524]26c
27         CALL histdef(nid_tra, "phis", "Surface geop. height", "-",
[776]28     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[524]29     .                "once",  zsto,zout)
30c
31         CALL histdef(nid_tra, "aire", "Grid area", "-",
[776]32     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[524]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",
[776]39     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]40     .                "ave(X)", zsto,zout)
41         if (lessivage) THEN
42         CALL histdef(nid_tra, "fl"//tnom(iq),"Flux "//ttext(iiq),
[776]43     .              "U/m2/s",iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]44     .              "ave(X)", zsto,zout)
45         endif
[549]46
47c---Ajout Olivia
48         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
49     .                "tendance thermique"// ttext(iiq), "?",
[776]50     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[549]51     .                "ave(X)", zsto,zout)
52         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
53     .                "tendance convection"// ttext(iiq), "?",
[776]54     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[549]55     .                "ave(X)", zsto,zout)
56         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
57     .                "tendance couche limite"// ttext(iiq), "?",
[776]58     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[549]59     .                "ave(X)", zsto,zout)
60c---fin Olivia   
61
[524]62         ENDDO
[549]63
[524]64         CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
[776]65     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[766]66     .                "inst(X)",  zout,zout)
[524]67
68         CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",
[776]69     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]70     .                "inst(X)",  zout,zout)
[524]71         CALL histdef(nid_tra, "psrf1", "nature sol", "-",
[776]72     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]73     .                "inst(X)",  zout,zout)
[524]74         CALL histdef(nid_tra, "psrf2", "nature sol", "-",
[776]75     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]76     .                "inst(X)",  zout,zout)
[524]77         CALL histdef(nid_tra, "psrf3", "nature sol", "-",
[776]78     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]79     .                "inst(X)",  zout,zout)
[524]80         CALL histdef(nid_tra, "psrf4", "nature sol", "-",
[776]81     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]82     .                "inst(X)",  zout,zout)
[524]83         CALL histdef(nid_tra, "ftsol1", "temper sol", "-",
[776]84     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]85     .                "inst(X)",  zout,zout)
[524]86         CALL histdef(nid_tra, "ftsol2", "temper sol", "-",
[776]87     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]88     .                "inst(X)",  zout,zout)
[524]89         CALL histdef(nid_tra, "ftsol3", "temper sol", "-",
[776]90     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[766]91     .                "inst",  zout,zout)
[524]92         CALL histdef(nid_tra, "ftsol4", "temper sol", "-",
[776]93     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
[657]94     .                "inst(X)",  zout,zout)
[524]95         CALL histdef(nid_tra, "pplay", "flux u mont","-",
[776]96     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[657]97     .                "inst(X)", zout,zout)
[524]98         CALL histdef(nid_tra, "t", "flux u mont","-",
[776]99     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[657]100     .                "inst(X)", zout,zout)
[524]101         CALL histdef(nid_tra, "mfu", "flux u mont","-",
[776]102     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]103     .                "ave(X)", zsto,zout)
104         CALL histdef(nid_tra, "mfd", "flux u decen","-",
[776]105     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]106     .                "ave(X)", zsto,zout)
107         CALL histdef(nid_tra, "en_u", "flux u mont","-",
[776]108     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]109     .                "ave(X)", zsto,zout)
110         CALL histdef(nid_tra, "en_d", "flux u mont","-",
[776]111     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]112     .                "ave(X)", zsto,zout)
113         CALL histdef(nid_tra, "de_d", "flux u mont","-",
[776]114     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]115     .                "ave(X)", zsto,zout)
116         CALL histdef(nid_tra, "de_u", "flux u decen","-",
[776]117     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]118     .                "ave(X)", zsto,zout)
119         CALL histdef(nid_tra, "coefh", "turbulent coef","-",
[776]120     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[524]121     .                "ave(X)", zsto,zout)
122
123c
124         CALL histend(nid_tra)
125         ndex2d = 0
126         ndex3d = 0
127         ndex = 0
[766]128c$OMP END MASTER
[959]129      END IF
Note: See TracBrowser for help on using the repository browser.