[644] | 1 | c |
---|
[1403] | 2 | c $Id: ini_bilKP_ave.h 3411 2018-11-05 14:24:59Z dcugnet $ |
---|
[644] | 3 | c |
---|
| 4 | IF (ok_journe) THEN |
---|
| 5 | c |
---|
| 6 | zsto = dtime |
---|
[684] | 7 | zout = ecrit_day |
---|
[644] | 8 | typeval=tave |
---|
| 9 | c |
---|
| 10 | idayref = day_ref |
---|
| 11 | CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) |
---|
| 12 | c |
---|
[766] | 13 | cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) |
---|
| 14 | cym DO i = 1, iim |
---|
| 15 | cym zx_lon(i,1) = rlon(i+1) |
---|
| 16 | cym zx_lon(i,jjmp1) = rlon(i+1) |
---|
| 17 | cym ENDDO |
---|
[644] | 18 | DO ll=1,klev |
---|
[1403] | 19 | znivsig(ll)=REAL(ll) |
---|
[644] | 20 | ENDDO |
---|
[766] | 21 | cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) |
---|
| 22 | cym write(*,*)'zx_lon = ',zx_lon(:,1) |
---|
| 23 | cym write(*,*)'zx_lat = ',zx_lat(1,:) |
---|
| 24 | cym CALL histbeg("histbilKP_ave", iim,zx_lon(:,1), jjmp1, |
---|
| 25 | cym . zx_lat(1,:), |
---|
| 26 | cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, |
---|
| 27 | cym . nhori, nid_bilKPave) |
---|
| 28 | CALL histbeg_phy("histbilKP_ave", itau_phy, zjulian, dtime, |
---|
[644] | 29 | . nhori, nid_bilKPave) |
---|
[766] | 30 | |
---|
[644] | 31 | write(*,*)'Journee ', itau_phy, zjulian |
---|
| 32 | CALL histvert(nid_bilKPave, "presnivs", |
---|
| 33 | . "Vertical levels","mb", |
---|
| 34 | . klev, presnivs/100., nvert) |
---|
| 35 | c |
---|
| 36 | c |
---|
| 37 | c Champs 3D: |
---|
| 38 | c |
---|
| 39 | CALL histdef(nid_bilKPave,"ue", |
---|
| 40 | . "Zonal energy transport","-", |
---|
[766] | 41 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 42 | . typeval, zsto,zout) |
---|
| 43 | c |
---|
| 44 | CALL histdef(nid_bilKPave,"ve", |
---|
| 45 | . "Merid energy transport","-", |
---|
[766] | 46 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 47 | . typeval, zsto,zout) |
---|
| 48 | c |
---|
| 49 | CALL histdef(nid_bilKPave,"uq", |
---|
| 50 | . "Zonal humidity transport","-", |
---|
[766] | 51 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 52 | . typeval, zsto,zout) |
---|
| 53 | c |
---|
| 54 | CALL histdef(nid_bilKPave,"vq", |
---|
| 55 | . "Merid humidity transport","-", |
---|
[766] | 56 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 57 | . typeval, zsto,zout) |
---|
| 58 | c |
---|
| 59 | c Champs 3D: |
---|
| 60 | c |
---|
| 61 | CALL histdef(nid_bilKPave,"temp", |
---|
| 62 | . "Air temperature","K", |
---|
[766] | 63 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 64 | . typeval, zsto,zout) |
---|
| 65 | c |
---|
| 66 | CALL histdef(nid_bilKPave,"ovap", |
---|
| 67 | . "Specific humidity","Kg/Kg", |
---|
[766] | 68 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 69 | . typeval, zsto,zout) |
---|
| 70 | c |
---|
| 71 | CALL histdef(nid_bilKPave,"geop", |
---|
| 72 | . "Geopotential height","m", |
---|
[766] | 73 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 74 | . typeval, zsto,zout) |
---|
| 75 | c |
---|
| 76 | CALL histdef(nid_bilKPave,"vitu", |
---|
| 77 | . "Zonal wind","m/s", |
---|
[766] | 78 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 79 | . typeval, zsto,zout) |
---|
| 80 | c |
---|
| 81 | CALL histdef(nid_bilKPave,"vitv", |
---|
| 82 | . "Meridional wind","m/s", |
---|
[766] | 83 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 84 | . typeval, zsto,zout) |
---|
| 85 | c |
---|
| 86 | CALL histdef(nid_bilKPave, "vitw", |
---|
| 87 | . "Vertical wind", "m/s", |
---|
[766] | 88 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 89 | . typeval, zsto,zout) |
---|
| 90 | c |
---|
| 91 | CALL histdef(nid_bilKPave, "pres", |
---|
| 92 | . "Inter-Layer Air pressure", |
---|
| 93 | . "Pa", |
---|
[766] | 94 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 95 | . typeval, zsto,zout) |
---|
| 96 | c |
---|
| 97 | CALL histdef(nid_bilKPave, "play", |
---|
| 98 | . "Mean-Layer Air pressure", |
---|
| 99 | . "Pa", |
---|
[766] | 100 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 101 | . typeval, zsto,zout) |
---|
| 102 | c |
---|
| 103 | CALL histdef(nid_bilKPave, "oliq", |
---|
| 104 | . "Liquid water content", |
---|
| 105 | . "kg/kg", |
---|
[766] | 106 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 107 | . typeval, zsto,zout) |
---|
| 108 | c |
---|
| 109 | CALL histdef(nid_bilKPave, "dtdyn", |
---|
| 110 | . "Dynamics dT", "K/s", |
---|
[766] | 111 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 112 | . typeval, zsto,zout) |
---|
| 113 | c |
---|
| 114 | CALL histdef(nid_bilKPave, "dqdyn", |
---|
| 115 | . "Dynamics dQ", "Kg/Kg/s", |
---|
[766] | 116 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 117 | . typeval, zsto,zout) |
---|
| 118 | c |
---|
| 119 | CALL histdef(nid_bilKPave, "dtcon", |
---|
| 120 | . "Convection dT", "K/s", |
---|
[766] | 121 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 122 | . typeval, zsto,zout) |
---|
| 123 | c |
---|
| 124 | CALL histdef(nid_bilKPave, "ducon", |
---|
| 125 | . "Convection du", "m/s2", |
---|
[766] | 126 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 127 | . typeval, zsto,zout) |
---|
| 128 | c |
---|
| 129 | CALL histdef(nid_bilKPave, "dvcon", |
---|
| 130 | . "Convection dv", "m/s2", |
---|
[766] | 131 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 132 | . typeval, zsto,zout) |
---|
| 133 | c |
---|
| 134 | CALL histdef(nid_bilKPave,"dqcon", |
---|
| 135 | . "Convection dQ","Kg/Kg/s", |
---|
[766] | 136 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 137 | . typeval, zsto,zout) |
---|
| 138 | c |
---|
| 139 | CALL histdef(nid_bilKPave, "dtlsc", |
---|
| 140 | . "Condensation dT", "K/s", |
---|
[766] | 141 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 142 | . typeval, zsto,zout) |
---|
| 143 | c |
---|
| 144 | CALL histdef(nid_bilKPave,"dqlsc", |
---|
| 145 | . "Condensation dQ","Kg/Kg/s", |
---|
[766] | 146 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 147 | . typeval, zsto,zout) |
---|
| 148 | c |
---|
| 149 | CALL histdef(nid_bilKPave,"dtvdf", |
---|
| 150 | . "Boundary-layer dT","K/s", |
---|
[766] | 151 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 152 | . typeval, zsto,zout) |
---|
| 153 | c |
---|
| 154 | CALL histdef(nid_bilKPave, "dqvdf", |
---|
| 155 | . "Boundary-layer dQ", |
---|
| 156 | . "Kg/Kg/s", |
---|
[766] | 157 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 158 | . typeval, zsto,zout) |
---|
| 159 | c |
---|
| 160 | CALL histdef(nid_bilKPave,"dtajs", |
---|
| 161 | . "Ajustement sec dT","K/s", |
---|
[766] | 162 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 163 | . typeval, zsto,zout) |
---|
| 164 | c |
---|
| 165 | CALL histdef(nid_bilKPave, "dqajs", |
---|
| 166 | . "Ajustement sec dQ", |
---|
| 167 | . "Kg/Kg/s", |
---|
[766] | 168 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 169 | . typeval, zsto,zout) |
---|
| 170 | c |
---|
| 171 | CALL histdef(nid_bilKPave, "dteva", |
---|
| 172 | . "Reevaporation dT", "K/s", |
---|
[766] | 173 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 174 | . typeval, zsto,zout) |
---|
| 175 | c |
---|
| 176 | CALL histdef(nid_bilKPave,"dqeva", |
---|
| 177 | . "Reevaporation dQ", |
---|
| 178 | . "Kg/Kg/s", |
---|
[766] | 179 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 180 | . typeval, zsto,zout) |
---|
| 181 | |
---|
| 182 | c |
---|
| 183 | CALL histdef(nid_bilKPave, "dtswr", |
---|
| 184 | . "SW radiation dT", "K/s", |
---|
[766] | 185 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 186 | . typeval, zsto,zout) |
---|
| 187 | c |
---|
| 188 | CALL histdef(nid_bilKPave, "dtsw0", |
---|
| 189 | . "SW radiation dT", "K/s", |
---|
[766] | 190 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 191 | . typeval, zsto,zout) |
---|
| 192 | c |
---|
| 193 | CALL histdef(nid_bilKPave, "dtlwr", |
---|
| 194 | . "LW radiation dT", "K/s", |
---|
[766] | 195 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 196 | . typeval, zsto,zout) |
---|
| 197 | c |
---|
| 198 | CALL histdef(nid_bilKPave, "dtlw0", |
---|
| 199 | . "LW radiation dT", "K/s", |
---|
[766] | 200 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 201 | . typeval, zsto,zout) |
---|
| 202 | c |
---|
| 203 | CALL histdef(nid_bilKPave,"duvdf", |
---|
| 204 | . "Boundary-layer dU","m/s2", |
---|
[766] | 205 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 206 | . typeval, zsto,zout) |
---|
| 207 | c |
---|
| 208 | CALL histdef(nid_bilKPave,"dvvdf", |
---|
| 209 | . "Boundary-layer dV","m/s2", |
---|
[766] | 210 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 211 | . typeval, zsto,zout) |
---|
| 212 | c |
---|
| 213 | IF (ok_orodr) THEN |
---|
| 214 | IF (ok_orolf) THEN |
---|
| 215 | CALL histdef(nid_bilKPave, "duoli", |
---|
| 216 | . "Orography dU", "m/s2", |
---|
[766] | 217 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 218 | . typeval, zsto,zout) |
---|
| 219 | c |
---|
| 220 | CALL histdef(nid_bilKPave, "dvoli", |
---|
| 221 | . "Orography dV", "m/s2", |
---|
[766] | 222 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 223 | . typeval, zsto,zout) |
---|
| 224 | c |
---|
| 225 | ENDIF |
---|
| 226 | ENDIF |
---|
| 227 | C |
---|
| 228 | CALL histdef(nid_bilKPave, "duphy", |
---|
| 229 | . "Physiq dU","-", |
---|
[766] | 230 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 231 | . typeval, zsto,zout) |
---|
| 232 | C |
---|
| 233 | CALL histdef(nid_bilKPave, "dvphy", |
---|
| 234 | . "Physiq dV","-", |
---|
[766] | 235 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 236 | . typeval, zsto,zout) |
---|
| 237 | C |
---|
| 238 | CALL histdef(nid_bilKPave, "dtphy", |
---|
| 239 | . "Physiq dT","-", |
---|
[766] | 240 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 241 | . typeval, zsto,zout) |
---|
| 242 | C |
---|
| 243 | CALL histdef(nid_bilKPave, "dqphy", |
---|
| 244 | . "Physiq dQ","-", |
---|
[766] | 245 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 246 | . typeval, zsto,zout) |
---|
| 247 | C |
---|
| 248 | CALL histdef(nid_bilKPave, "dqlphy", |
---|
| 249 | . "Physiq dQl","-", |
---|
[766] | 250 | . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, |
---|
[644] | 251 | . typeval, zsto,zout) |
---|
| 252 | C |
---|
| 253 | C |
---|
| 254 | CALL histend(nid_bilKPave) |
---|
| 255 | c |
---|
| 256 | ndex2d = 0 |
---|
| 257 | ndex3d = 0 |
---|
| 258 | c |
---|
| 259 | ENDIF ! fin de test sur ok_journe |
---|