Ignore:
Timestamp:
Mar 11, 2008, 3:47:04 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Erreur lors de la reintegration des sorties aerosols SD
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h

    r897 r925  
    250250      IF (ok_ade.OR.ok_aie) THEN
    251251      zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon)
    252       CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_2d)
     252      CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_fi2d)
    253253c
    254254      zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
    255       CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d)
     255      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_fi2d)
    256256c
    257257      zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
    258       CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d)
     258      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_fi2d)
    259259c
    260260      zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon)
    261       CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_2d)
     261      CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_fi2d)
    262262      endif
    263263
Note: See TracChangeset for help on using the changeset viewer.