| 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| 4 | IF (ecrit_tra>0. .AND. config_inca == 'none') THEN |
|---|
| 5 | c$OMP MASTER |
|---|
| 6 | CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) |
|---|
| 7 | c |
|---|
| 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 |
|---|
| 17 | c |
|---|
| 18 | CALL histdef(nid_tra, "phis", "Surface geop. height", "-", |
|---|
| 19 | . iim,jj_nb,nhori, 1,1,1, -99, 32, |
|---|
| 20 | . "once", zsto,zout) |
|---|
| 21 | c |
|---|
| 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,nbtr |
|---|
| 26 | C champ 2D |
|---|
| 27 | iq=it+2 |
|---|
| 28 | iiq=niadv(iq) |
|---|
| 29 | CALL histdef(nid_tra, tname(iiq), 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"//tname(iiq),"Flux "//ttext(iiq), |
|---|
| 34 | . "U/m2/s",iim,jj_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 35 | . "ave(X)", zsto,zout) |
|---|
| 36 | endif |
|---|
| 37 | |
|---|
| 38 | c---Ajout Olivia |
|---|
| 39 | CALL histdef(nid_tra, "d_tr_th_"//tname(iiq), |
|---|
| 40 | . "tendance thermique"// ttext(iiq), "?", |
|---|
| 41 | . iim,jj_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 42 | . "ave(X)", zsto,zout) |
|---|
| 43 | c |
|---|
| 44 | if(iflag_con.GE.2) then |
|---|
| 45 | CALL histdef(nid_tra, "d_tr_cv_"//tname(iiq), |
|---|
| 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_"//tname(iiq), |
|---|
| 51 | . "tendance couche limite"// ttext(iiq), "?", |
|---|
| 52 | . iim,jj_nb,nhori, klev,1,klev,nvert, 32, |
|---|
| 53 | . "ave(X)", zsto,zout) |
|---|
| 54 | c---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 | |
|---|
| 117 | c |
|---|
| 118 | CALL histend(nid_tra) |
|---|
| 119 | ndex2d = 0 |
|---|
| 120 | ndex3d = 0 |
|---|
| 121 | ndex = 0 |
|---|
| 122 | c$OMP END MASTER |
|---|
| 123 | END IF ! ecrit_tra>0. .AND. config_inca == 'none' |
|---|
