[524] | 1 | ! |
---|
| 2 | ! $Header$ |
---|
| 3 | ! |
---|
| 4 | if (ok_hf) then |
---|
| 5 | |
---|
| 6 | c |
---|
| 7 | ndex2d = 0 |
---|
| 8 | ndex3d = 0 |
---|
| 9 | c |
---|
| 10 | itau_w = itau_phy + itap |
---|
| 11 | c |
---|
[644] | 12 | IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN |
---|
| 13 | c |
---|
[524] | 14 | IF(lev_histhf.GE.1) THEN |
---|
| 15 | c |
---|
[766] | 16 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, paire_ter, zx_tmp_2d) |
---|
| 17 | CALL histwrite_phy(nid_hf,"aireTER",itau_w,paire_ter) |
---|
[524] | 18 | c |
---|
| 19 | DO i=1, klon |
---|
| 20 | zx_tmp_fi2d(i)=pctsrf(i,is_ter)+pctsrf(i,is_lic) |
---|
| 21 | ENDDO |
---|
| 22 | c |
---|
[766] | 23 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) |
---|
| 24 | CALL histwrite_phy(nid_hf,"contfracATM",itau_w,zx_tmp_fi2d) |
---|
[524] | 25 | c |
---|
[766] | 26 | cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf_new(:,is_ter),zx_tmp_2d) |
---|
| 27 | CALL histwrite_phy(nid_hf,"contfracOR",itau_w, |
---|
| 28 | . pctsrf_new(:,is_ter)) |
---|
[524] | 29 | c |
---|
[766] | 30 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) |
---|
| 31 | CALL histwrite_phy(nid_hf,"t2m",itau_w,zt2m) |
---|
[524] | 32 | c |
---|
[766] | 33 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) |
---|
| 34 | CALL histwrite_phy(nid_hf,"q2m",itau_w,zq2m) |
---|
[524] | 35 | c |
---|
| 36 | DO i = 1, klon |
---|
| 37 | zx_tmp_fi2d(i) = paprs(i,1) |
---|
| 38 | ENDDO |
---|
[766] | 39 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) |
---|
| 40 | CALL histwrite_phy(nid_hf,"psol",itau_w,zx_tmp_fi2d) |
---|
[524] | 41 | c |
---|
| 42 | DO i = 1, klon |
---|
| 43 | zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) |
---|
| 44 | ENDDO |
---|
[766] | 45 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) |
---|
| 46 | CALL histwrite_phy(nid_hf,"precip",itau_w,zx_tmp_fi2d) |
---|
[524] | 47 | c |
---|
| 48 | c ENSEMBLES BEG |
---|
[766] | 49 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) |
---|
| 50 | CALL histwrite_phy(nid_hf,"tsol",itau_w,zxtsol) |
---|
[524] | 51 | c |
---|
[766] | 52 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) |
---|
| 53 | CALL histwrite_phy(nid_hf,"slp",itau_w,slp) |
---|
[524] | 54 | c |
---|
[766] | 55 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) |
---|
| 56 | CALL histwrite_phy(nid_hf,"u10m",itau_w,zu10m) |
---|
[644] | 57 | c |
---|
[766] | 58 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) |
---|
| 59 | CALL histwrite_phy(nid_hf,"v10m",itau_w,zv10m) |
---|
[524] | 60 | c |
---|
| 61 | DO i=1, klon |
---|
| 62 | zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i)) |
---|
| 63 | ENDDO |
---|
[766] | 64 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) |
---|
| 65 | CALL histwrite_phy(nid_hf,"wind10m",itau_w,zx_tmp_fi2d) |
---|
[524] | 66 | c |
---|
[644] | 67 | DO k=1, nlevSTD |
---|
| 68 | c |
---|
| 69 | c bb=clevSTD(k) |
---|
| 70 | c |
---|
| 71 | c IF(k.GE.2) THEN |
---|
| 72 | IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) |
---|
| 73 | IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) |
---|
| 74 | c aa=clevSTD(k) |
---|
| 75 | c bb=aa(1:lnblnk1(aa)) |
---|
| 76 | c ENDIF |
---|
| 77 | c |
---|
| 78 | IF(bb2.EQ."500") THEN |
---|
| 79 | c |
---|
[766] | 80 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d) |
---|
| 81 | CALL histwrite_phy(nid_hf,"phi"//bb2,itau_w, philevSTD(:,k)) |
---|
[644] | 82 | ENDIF !bb2.EQ."500" |
---|
[524] | 83 | ENDDO |
---|
| 84 | c |
---|
| 85 | ENDIF !lev_histhf.GE.1 |
---|
| 86 | c |
---|
| 87 | IF(lev_histhf.GE.2) THEN |
---|
| 88 | c |
---|
[644] | 89 | cIM 140904 BEG |
---|
| 90 | DO i = 1, klon |
---|
| 91 | zx_tmp_fi2d(i) = cldt(i)*100. |
---|
| 92 | ENDDO |
---|
| 93 | cIM 140904 END |
---|
| 94 | cIM 140904 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d) |
---|
[766] | 95 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) |
---|
| 96 | CALL histwrite_phy(nid_hf,"cldt",itau_w,zx_tmp_fi2d) |
---|
[524] | 97 | c |
---|
| 98 | zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter) |
---|
[766] | 99 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) |
---|
| 100 | CALL histwrite_phy(nid_hf,"SWnetOR",itau_w, zx_tmp_fi2d) |
---|
[591] | 101 | c |
---|
| 102 | zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol(1:klon)) |
---|
[766] | 103 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) |
---|
| 104 | CALL histwrite_phy(nid_hf,"SWdownOR",itau_w, zx_tmp_fi2d) |
---|
[524] | 105 | c |
---|
[766] | 106 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) |
---|
| 107 | CALL histwrite_phy(nid_hf,"LWdownOR",itau_w,sollwdown) |
---|
[524] | 108 | c |
---|
| 109 | c |
---|
| 110 | ENDIF !lev_histhf.GE.2 |
---|
| 111 | c |
---|
| 112 | IF(lev_histhf.GE.3) THEN |
---|
| 113 | c |
---|
[644] | 114 | DO k=1, nlevSTD |
---|
[524] | 115 | c |
---|
[644] | 116 | c bb=clevSTD(k) |
---|
[524] | 117 | c |
---|
[644] | 118 | c IF(k.GE.2) THEN |
---|
[897] | 119 | c IF(k.GE.1.AND.k.LE.10) bb2=clevSTD(k) |
---|
| 120 | c IF(k.GE.11.AND.k.LE.17) bb3=clevSTD(k) |
---|
[644] | 121 | c aa=clevSTD(k) |
---|
| 122 | c bb=aa(1:lnblnk1(aa)) |
---|
| 123 | c ENDIF |
---|
| 124 | c |
---|
[897] | 125 | bb2=clevSTD(k) |
---|
| 126 | IF(bb2.EQ."1000".OR.bb2.EQ."925".OR. |
---|
| 127 | $ bb2.EQ."850".OR.bb2.EQ."700".OR. |
---|
| 128 | $ bb2.EQ."500".OR.bb2.EQ."300".OR. |
---|
| 129 | $ bb2.EQ."250".OR.bb2.EQ."200".OR. |
---|
| 130 | $ bb2.EQ."150".OR.bb2.EQ."100".OR. |
---|
| 131 | $ bb2.EQ."50".OR.bb2.EQ."30".OR. |
---|
| 132 | $ bb2.EQ."10")THEN |
---|
[644] | 133 | c |
---|
[766] | 134 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) |
---|
| 135 | CALL histwrite_phy(nid_hf,"t"//bb2,itau_w, tlevSTD(:,k)) |
---|
[524] | 136 | c |
---|
[644] | 137 | IF(bb2.NE."500") THEN !bb2.NE."500" |
---|
| 138 | c |
---|
[766] | 139 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,philevSTD(:,k),zx_tmp_2d) |
---|
| 140 | CALL histwrite_phy(nid_hf,"phi"//bb2,itau_w,philevSTD(:,k)) |
---|
[644] | 141 | ENDIF !bb2.NE."500" |
---|
[524] | 142 | c |
---|
[897] | 143 | IF(bb2.GE."200") THEN |
---|
| 144 | c |
---|
[766] | 145 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d) |
---|
| 146 | CALL histwrite_phy(nid_hf,"q"//bb2,itau_w, qlevSTD(:,k)) |
---|
[897] | 147 | ENDIF |
---|
[524] | 148 | c |
---|
[766] | 149 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) |
---|
| 150 | CALL histwrite_phy(nid_hf,"u"//bb2,itau_w,ulevSTD(:,k)) |
---|
[524] | 151 | c |
---|
[766] | 152 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) |
---|
| 153 | CALL histwrite_phy(nid_hf,"v"//bb2,itau_w, vlevSTD(:,k)) |
---|
[524] | 154 | c |
---|
[897] | 155 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, wlevSTD(:,k),zx_tmp_2d) |
---|
| 156 | CALL histwrite_phy(nid_hf,"w"//bb2,itau_w, wlevSTD(:,k)) |
---|
| 157 | c |
---|
| 158 | ENDIF |
---|
[524] | 159 | ENDDO !nlevENS |
---|
| 160 | c |
---|
| 161 | IF(1.EQ.0) THEN |
---|
[766] | 162 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d) |
---|
| 163 | CALL histwrite_phy(nid_hf,"cdrm",itau_w,cdragm) |
---|
[524] | 164 | c |
---|
[766] | 165 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d) |
---|
| 166 | CALL histwrite_phy(nid_hf,"cdrh",itau_w,cdragh) |
---|
[524] | 167 | ENDIF !(1.EQ.0) THEN |
---|
| 168 | c |
---|
[591] | 169 | ENDIF !lev_histhf.GE.3 |
---|
| 170 | c |
---|
| 171 | IF(lev_histhf.GE.4) THEN |
---|
| 172 | c |
---|
[644] | 173 | #undef histhf3d |
---|
[591] | 174 | #define histhf3d |
---|
| 175 | #ifdef histhf3d |
---|
| 176 | #include "write_histhf3d.h" |
---|
| 177 | #endif |
---|
| 178 | c |
---|
| 179 | ENDIF !lev_histhf.GE.4 |
---|
| 180 | c |
---|
[644] | 181 | ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN |
---|
| 182 | c |
---|
| 183 | IF(lev_histhf.GE.1) THEN |
---|
| 184 | c |
---|
| 185 | DO k=1, nlevSTD |
---|
| 186 | c bb=clevSTD(k) |
---|
| 187 | c |
---|
| 188 | c IF(k.GE.2) THEN |
---|
| 189 | IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) |
---|
| 190 | IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) |
---|
| 191 | c aa=clevSTD(k) |
---|
| 192 | c bb=aa(1:lnblnk1(aa)) |
---|
| 193 | c ENDIF |
---|
| 194 | c |
---|
| 195 | IF(bb2.EQ."850".or.bb2.EQ."200") THEN |
---|
| 196 | c |
---|
[766] | 197 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) |
---|
| 198 | CALL histwrite_phy(nid_hf,"u"//bb2,itau_w,ulevSTD(:,k)) |
---|
[644] | 199 | c |
---|
[766] | 200 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) |
---|
| 201 | CALL histwrite_phy(nid_hf,"v"//bb2,itau_w,vlevSTD(:,k)) |
---|
[644] | 202 | c |
---|
| 203 | ENDIF !bb2.EQ."850".or.bb2.EQ."200" |
---|
| 204 | c |
---|
| 205 | ENDDO !nlevSTD |
---|
| 206 | c |
---|
[766] | 207 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d) |
---|
| 208 | CALL histwrite_phy(nid_hf,"topl",itau_w,toplw) |
---|
[644] | 209 | c |
---|
| 210 | DO i = 1, klon |
---|
| 211 | zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i) |
---|
| 212 | ENDDO |
---|
[766] | 213 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) |
---|
| 214 | CALL histwrite_phy(nid_hf,"precip",itau_w,zx_tmp_fi2d) |
---|
[644] | 215 | c |
---|
[766] | 216 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) |
---|
| 217 | CALL histwrite_phy(nid_hf,"slp",itau_w,slp) |
---|
[644] | 218 | c |
---|
| 219 | cIM 280504 BEG |
---|
| 220 | ENDIF !(lev_histhf.GE.1) THEN |
---|
| 221 | c |
---|
| 222 | IF(lev_histhf.GE.2) THEN |
---|
| 223 | c |
---|
| 224 | DO k=1, nlevSTD |
---|
| 225 | c |
---|
| 226 | c bb=clevSTD(k) |
---|
| 227 | c |
---|
| 228 | c IF(k.GE.2) THEN |
---|
| 229 | IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k) |
---|
| 230 | IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k) |
---|
| 231 | c aa=clevSTD(k) |
---|
| 232 | c bb=aa(1:lnblnk1(aa)) |
---|
| 233 | c ENDIF |
---|
| 234 | c |
---|
| 235 | IF(bb2.EQ."850".or.bb2.EQ."500") THEN |
---|
| 236 | c |
---|
[766] | 237 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) |
---|
| 238 | CALL histwrite_phy(nid_hf,"t"//bb2,itau_w,tlevSTD(:,k)) |
---|
[644] | 239 | c |
---|
[766] | 240 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d) |
---|
| 241 | CALL histwrite_phy(nid_hf,"q"//bb2,itau_w, qlevSTD(:,k)) |
---|
[644] | 242 | c |
---|
| 243 | ENDIF !bb2.EQ."850".or.bb2.EQ."500" |
---|
| 244 | c |
---|
| 245 | IF(bb2.EQ."500") THEN |
---|
| 246 | c |
---|
[766] | 247 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d) |
---|
| 248 | CALL histwrite_phy(nid_hf,"phi"//bb2,itau_w, philevSTD(:,k)) |
---|
[644] | 249 | c |
---|
[766] | 250 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, wlevSTD(:,k),zx_tmp_2d) |
---|
| 251 | CALL histwrite_phy(nid_hf,"w"//bb2,itau_w, wlevSTD(:,k)) |
---|
[644] | 252 | c |
---|
| 253 | ENDIF !bb2.EQ."500" |
---|
| 254 | c |
---|
| 255 | IF(bb3.EQ."50") THEN |
---|
| 256 | c |
---|
[766] | 257 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) |
---|
| 258 | CALL histwrite_phy(nid_hf,"t"//bb3,itau_w, tlevSTD(:,k)) |
---|
[644] | 259 | c |
---|
[766] | 260 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) |
---|
| 261 | CALL histwrite_phy(nid_hf,"u"//bb3,itau_w, ulevSTD(:,k)) |
---|
[644] | 262 | c |
---|
[766] | 263 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) |
---|
| 264 | CALL histwrite_phy(nid_hf,"v"//bb3,itau_w, vlevSTD(:,k)) |
---|
[644] | 265 | c |
---|
| 266 | ENDIF !bb3.EQ."50" |
---|
| 267 | c |
---|
| 268 | ENDDO !k=1, nlevSTD |
---|
| 269 | c |
---|
[766] | 270 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d) |
---|
| 271 | CALL histwrite_phy(nid_hf,"u10m",itau_w,zu10m) |
---|
[644] | 272 | c |
---|
[766] | 273 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d) |
---|
| 274 | CALL histwrite_phy(nid_hf,"v10m",itau_w,zv10m) |
---|
[644] | 275 | c |
---|
[766] | 276 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) |
---|
| 277 | CALL histwrite_phy(nid_hf,"t2m",itau_w, zt2m) |
---|
[644] | 278 | c |
---|
[766] | 279 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d) |
---|
| 280 | CALL histwrite_phy(nid_hf,"q2m",itau_w,zq2m) |
---|
[644] | 281 | c |
---|
| 282 | DO i = 1, klon |
---|
| 283 | zx_tmp_fi2d(i) = paprs(i,1) |
---|
| 284 | ENDDO |
---|
[766] | 285 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) |
---|
| 286 | CALL histwrite_phy(nid_hf,"psol",itau_w,zx_tmp_fi2d) |
---|
[644] | 287 | c |
---|
| 288 | cIM 140904 BEG |
---|
| 289 | DO i = 1, klon |
---|
| 290 | zx_tmp_fi2d(i) = cldt(i)*100. |
---|
| 291 | ENDDO |
---|
| 292 | cIM 140904 END |
---|
| 293 | cIM 140904 CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d) |
---|
[766] | 294 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) |
---|
| 295 | CALL histwrite_phy(nid_hf,"cldt",itau_w,zx_tmp_fi2d) |
---|
[644] | 296 | c |
---|
| 297 | zx_tmp_fi2d(1 : klon) = zxfluxu(1 : klon, 1) |
---|
[766] | 298 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) |
---|
| 299 | CALL histwrite_phy(nid_hf,"taux",itau_w,zx_tmp_fi2d) |
---|
[644] | 300 | C |
---|
| 301 | zx_tmp_fi2d(1 : klon) = zxfluxv(1 : klon, 1) |
---|
[766] | 302 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) |
---|
| 303 | CALL histwrite_phy(nid_hf,"tauy",itau_w,zx_tmp_fi2d) |
---|
[644] | 304 | c |
---|
[766] | 305 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) |
---|
| 306 | CALL histwrite_phy(nid_hf,"prw",itau_w,prw) |
---|
[644] | 307 | c |
---|
| 308 | zx_tmp_fi2d(1:klon)=-1*sens(1:klon) |
---|
[766] | 309 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) |
---|
| 310 | CALL histwrite_phy(nid_hf,"sens",itau_w,zx_tmp_fi2d) |
---|
[644] | 311 | c |
---|
[766] | 312 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d) |
---|
| 313 | CALL histwrite_phy(nid_hf,"flat",itau_w,zxfluxlat) |
---|
[644] | 314 | c |
---|
| 315 | c CALL gr_fi_ecrit(1, klon,iim,jjmp1, zsnow_mass,zx_tmp_2d) |
---|
[766] | 316 | c CALL histwrite_phy(nid_hf,"snow_mass",itau_w,zsnow_mass) |
---|
[644] | 317 | c |
---|
| 318 | zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 ) |
---|
[766] | 319 | cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) |
---|
| 320 | CALL histwrite_phy(nid_hf, "SWdnSFC",itau_w,zx_tmp_fi2d) |
---|
[644] | 321 | c |
---|
| 322 | zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 ) |
---|
[766] | 323 | cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) |
---|
| 324 | CALL histwrite_phy(nid_hf, "SWupSFC",itau_w,zx_tmp_fi2d) |
---|
[644] | 325 | c |
---|
[766] | 326 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d) |
---|
| 327 | CALL histwrite_phy(nid_hf,"LWdnSFC",itau_w,sollwdown) |
---|
[644] | 328 | c |
---|
| 329 | cIM 090904 zx_tmp_fi2d(1:klon)=sollw(1:klon)+sollwdown(1:klon) |
---|
| 330 | cIM 130904 zx_tmp_fi2d(1:klon)=sollw(1:klon)-sollwdown(1:klon) |
---|
| 331 | zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon) |
---|
[766] | 332 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d) |
---|
| 333 | CALL histwrite_phy(nid_hf,"LWupSFC",itau_w,zx_tmp_fi2d) |
---|
[644] | 334 | c |
---|
| 335 | zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 ) |
---|
[766] | 336 | cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) |
---|
| 337 | CALL histwrite_phy(nid_hf, "SWdnTOA",itau_w,zx_tmp_fi2d) |
---|
[644] | 338 | c |
---|
| 339 | zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 ) |
---|
[766] | 340 | cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) |
---|
| 341 | CALL histwrite_phy(nid_hf, "SWupTOA",itau_w,zx_tmp_fi2d) |
---|
[644] | 342 | c |
---|
[776] | 343 | IF (is_sequential) THEN |
---|
[766] | 344 | cym CALL gr_fi_ecrit(nbteta,klon,iim,jjmp1,PVteta,zx_tmp_3dte) |
---|
[644] | 345 | DO k=1, nbteta |
---|
[782] | 346 | zx_tmp_fi2d(1:klon) = PVteta(1:klon,k) |
---|
[766] | 347 | CALL histwrite_phy(nid_hf,"PV"//ctetaSTD(k), |
---|
[782] | 348 | . itau_w,zx_tmp_fi2d) |
---|
[644] | 349 | ENDDO !k=1, nbteta |
---|
[766] | 350 | ENDIF |
---|
[644] | 351 | c |
---|
| 352 | c |
---|
| 353 | c planetary boundary layer height |
---|
| 354 | c |
---|
| 355 | c ENDIF !1.EQ.0 |
---|
| 356 | c |
---|
| 357 | ENDIF !(lev_histhf.GE.2) THEN |
---|
| 358 | cIM 280504 END |
---|
| 359 | c |
---|
| 360 | ENDIF !type_run |
---|
| 361 | c |
---|
| 362 | IF (ok_sync) THEN |
---|
[766] | 363 | c$OMP MASTER |
---|
[591] | 364 | call histsync(nid_hf) |
---|
[766] | 365 | c$OMP END MASTER |
---|
[644] | 366 | ENDIF |
---|
[591] | 367 | |
---|
[644] | 368 | ENDIF |
---|