| 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| 4 | #ifndef INCA |
|---|
| 5 | c$OMP MASTER |
|---|
| 6 | CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
|---|
| 7 | c |
|---|
| 8 | cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon) |
|---|
| 9 | cym DO i = 1, iim |
|---|
| 10 | cym zx_lon(i,1) = xlon(i+1) |
|---|
| 11 | cym zx_lon(i,jjm+1) = xlon(i+1) |
|---|
| 12 | cym ENDDO |
|---|
| 13 | cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat) |
|---|
| 14 | cym CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:), |
|---|
| 15 | cym . 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys, |
|---|
| 16 | cym . 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 * FLOAT(ecrit_tra) |
|---|
| 26 | c |
|---|
| 27 | CALL histdef(nid_tra, "phis", "Surface geop. height", "-", |
|---|
| 28 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 29 | . "once", zsto,zout) |
|---|
| 30 | c |
|---|
| 31 | CALL histdef(nid_tra, "aire", "Grid area", "-", |
|---|
| 32 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 33 | . "once", zsto,zout) |
|---|
| 34 | DO it=1,nqmax |
|---|
| 35 | C champ 2D |
|---|
| 36 | iq=it+2 |
|---|
| 37 | iiq=niadv(iq) |
|---|
| 38 | CALL histdef(nid_tra, tnom(iq), ttext(iiq), "U/kga", |
|---|
| 39 | . iim,jjphy_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,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 44 | . "ave(X)", zsto,zout) |
|---|
| 45 | endif |
|---|
| 46 | |
|---|
| 47 | c---Ajout Olivia |
|---|
| 48 | CALL histdef(nid_tra, "d_tr_th_"//tnom(iq), |
|---|
| 49 | . "tendance thermique"// ttext(iiq), "?", |
|---|
| 50 | . iim,jjphy_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,jjphy_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,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 59 | . "ave(X)", zsto,zout) |
|---|
| 60 | c---fin Olivia |
|---|
| 61 | |
|---|
| 62 | ENDDO |
|---|
| 63 | |
|---|
| 64 | CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-", |
|---|
| 65 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 66 | . "inst(X)", zout,zout) |
|---|
| 67 | |
|---|
| 68 | CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-", |
|---|
| 69 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 70 | . "inst(X)", zout,zout) |
|---|
| 71 | CALL histdef(nid_tra, "psrf1", "nature sol", "-", |
|---|
| 72 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 73 | . "inst(X)", zout,zout) |
|---|
| 74 | CALL histdef(nid_tra, "psrf2", "nature sol", "-", |
|---|
| 75 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 76 | . "inst(X)", zout,zout) |
|---|
| 77 | CALL histdef(nid_tra, "psrf3", "nature sol", "-", |
|---|
| 78 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 79 | . "inst(X)", zout,zout) |
|---|
| 80 | CALL histdef(nid_tra, "psrf4", "nature sol", "-", |
|---|
| 81 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 82 | . "inst(X)", zout,zout) |
|---|
| 83 | CALL histdef(nid_tra, "ftsol1", "temper sol", "-", |
|---|
| 84 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 85 | . "inst(X)", zout,zout) |
|---|
| 86 | CALL histdef(nid_tra, "ftsol2", "temper sol", "-", |
|---|
| 87 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 88 | . "inst(X)", zout,zout) |
|---|
| 89 | CALL histdef(nid_tra, "ftsol3", "temper sol", "-", |
|---|
| 90 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 91 | . "inst", zout,zout) |
|---|
| 92 | CALL histdef(nid_tra, "ftsol4", "temper sol", "-", |
|---|
| 93 | . iim,jjphy_nb,nhori, 1,1,1, -99, 32, |
|---|
| 94 | . "inst(X)", zout,zout) |
|---|
| 95 | CALL histdef(nid_tra, "pplay", "flux u mont","-", |
|---|
| 96 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 97 | . "inst(X)", zout,zout) |
|---|
| 98 | CALL histdef(nid_tra, "t", "flux u mont","-", |
|---|
| 99 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 100 | . "inst(X)", zout,zout) |
|---|
| 101 | CALL histdef(nid_tra, "mfu", "flux u mont","-", |
|---|
| 102 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 103 | . "ave(X)", zsto,zout) |
|---|
| 104 | CALL histdef(nid_tra, "mfd", "flux u decen","-", |
|---|
| 105 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 106 | . "ave(X)", zsto,zout) |
|---|
| 107 | CALL histdef(nid_tra, "en_u", "flux u mont","-", |
|---|
| 108 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 109 | . "ave(X)", zsto,zout) |
|---|
| 110 | CALL histdef(nid_tra, "en_d", "flux u mont","-", |
|---|
| 111 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 112 | . "ave(X)", zsto,zout) |
|---|
| 113 | CALL histdef(nid_tra, "de_d", "flux u mont","-", |
|---|
| 114 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 115 | . "ave(X)", zsto,zout) |
|---|
| 116 | CALL histdef(nid_tra, "de_u", "flux u decen","-", |
|---|
| 117 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 118 | . "ave(X)", zsto,zout) |
|---|
| 119 | CALL histdef(nid_tra, "coefh", "turbulent coef","-", |
|---|
| 120 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 121 | . "ave(X)", zsto,zout) |
|---|
| 122 | |
|---|
| 123 | c |
|---|
| 124 | CALL histend(nid_tra) |
|---|
| 125 | ndex2d = 0 |
|---|
| 126 | ndex3d = 0 |
|---|
| 127 | ndex = 0 |
|---|
| 128 | c$OMP END MASTER |
|---|
| 129 | #endif |
|---|
