Changeset 903 for LMDZ4/trunk
- Timestamp:
- Feb 7, 2008, 3:32:33 PM (17 years ago)
- Location:
- LMDZ4/trunk/libf/phylmd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/ini_histmth.h
r895 r903 300 300 . "ave(X)", zstophy,zout) 301 301 c 302 c Effets des aerosols 303 c 304 IF (ok_ade.OR.ok_aie) THEN 305 CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2", 306 . iim,jj_nb,nhori, 1,1,1, -99, 32, 307 . "ave(X)", zstophy,zout) 308 c 309 CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2", 310 . iim,jj_nb,nhori, 1,1,1, -99, 32, 311 . "ave(X)", zstophy,zout) 312 c 313 CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2", 314 . iim,jj_nb,nhori, 1,1,1, -99, 32, 315 . "ave(X)", zstophy,zout) 316 c 317 CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2", 318 . iim,jj_nb,nhori, 1,1,1, -99, 32, 319 . "ave(X)", zstophy,zout) 320 endif 321 c 302 322 c CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa", 303 323 c . iim,jj_nb,nhori, 1,1,1, -99, 32, … … 1303 1323 . iim,jj_nb,nhori, 1,1,1, -99, 32, 1304 1324 . "ave(X)", zstophy,zout) 1325 c 1326 c Effets des aerosols 1327 c 1328 IF (ok_ade.OR.ok_aie) THEN 1329 CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2", 1330 . iim,jj_nb,nhori, 1,1,1, -99, 32, 1331 . "ave(X)", zsto,zout) 1332 c 1333 CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2", 1334 . iim,jj_nb,nhori, 1,1,1, -99, 32, 1335 . "ave(X)", zsto,zout) 1336 c 1337 CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2", 1338 . iim,jj_nb,nhori, 1,1,1, -99, 32, 1339 . "ave(X)", zsto,zout) 1340 c 1341 CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2", 1342 . iim,jj_nb,nhori, 1,1,1, -99, 32, 1343 . "ave(X)", zsto,zout) 1344 ENDIF 1305 1345 c 1306 1346 c CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa", -
LMDZ4/trunk/libf/phylmd/write_histmth.h
r895 r903 1273 1273 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d) 1274 1274 CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr) 1275 c effets des aerosols 1276 c 1277 IF (ok_ade.OR.ok_aie) THEN 1278 zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon) 1279 CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_2d) 1280 c 1281 zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon) 1282 CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d) 1283 c 1284 zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon) 1285 CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d) 1286 c 1287 zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon) 1288 CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_2d) 1289 endif 1290 1275 1291 c 1276 1292 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d) … … 1284 1300 cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d) 1285 1301 CALL histwrite_phy(nid_mth,"fder",itau_w,fder) 1302 c 1303 c Effets des aerosols 1304 c 1305 IF (ok_ade.OR.ok_aie) THEN 1306 zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon) 1307 CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_fi2d) 1308 c 1309 zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon) 1310 CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_fi2d) 1311 c 1312 zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon) 1313 CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_fi2d) 1314 c 1315 zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon) 1316 CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_fi2d) 1317 ENDIF 1286 1318 c 1287 1319 c
Note: See TracChangeset
for help on using the changeset viewer.