Ignore:
Timestamp:
Apr 11, 2016, 4:35:12 PM (9 years ago)
Author:
ymipsl
Message:

Missing initialialization

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_output_write_mod.F90

    r3923 r3926  
    589589       CALL histwrite_phy(o_cldt, cldt)
    590590       CALL histwrite_phy(o_JrNt, JrNt)
    591        CALL histwrite_phy(o_cldljn, cldl*JrNt)
     591       IF (vars_defined)   zx_tmp_fi2d(1 : klon) =  cldl*JrNt
     592       CALL histwrite_phy(o_cldljn, zx_tmp_fi2d)
     593       IF (vars_defined)   zx_tmp_fi2d(1 : klon) = cldm*JrNt
    592594       CALL histwrite_phy(o_cldmjn, cldm*JrNt)
     595       IF (vars_defined)   zx_tmp_fi2d(1 : klon) = cldh*JrNt
    593596       CALL histwrite_phy(o_cldhjn, cldh*JrNt)
     597       IF (vars_defined)   zx_tmp_fi2d(1 : klon) = cldt*JrNt
    594598       CALL histwrite_phy(o_cldtjn, cldt*JrNt)
    595599       CALL histwrite_phy(o_cldq, cldq)
Note: See TracChangeset for help on using the changeset viewer.