Changeset 903 for LMDZ4/trunk


Ignore:
Timestamp:
Feb 7, 2008, 3:32:33 PM (17 years ago)
Author:
Laurent Fairhead
Message:

On avait perdu les sorties aerosols de Johannes dans un merge
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/ini_histmth.h

    r895 r903  
    300300     .                "ave(X)", zstophy,zout)
    301301c
     302c Effets des aerosols
     303c
     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)
     308c
     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)
     312c
     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)
     316c
     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
     321c
    302322c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
    303323c    .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     
    13031323     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    13041324     .                "ave(X)", zstophy,zout)
     1325c
     1326c Effets des aerosols
     1327c
     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)
     1332c
     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)
     1336c
     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)
     1340c
     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
    13051345c
    13061346c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
  • LMDZ4/trunk/libf/phylmd/write_histmth.h

    r895 r903  
    12731273cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d)
    12741274      CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr)
     1275c effets des aerosols
     1276c
     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)
     1280c
     1281      zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
     1282      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d)
     1283c
     1284      zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
     1285      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d)
     1286c
     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
    12751291c
    12761292cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
     
    12841300cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    12851301      CALL histwrite_phy(nid_mth,"fder",itau_w,fder)
     1302c
     1303c Effets des aerosols
     1304c
     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)
     1308c
     1309        zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
     1310        CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_fi2d)
     1311c
     1312        zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
     1313        CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_fi2d)
     1314c
     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
    12861318c
    12871319c
Note: See TracChangeset for help on using the changeset viewer.