Ignore:
Timestamp:
Dec 13, 2018, 1:07:06 PM (6 years ago)
Author:
Laurent Fairhead
Message:

Followup to r3408 modifications for VolMIP
NL

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90

    r3408 r3425  
    13881388          CALL histwrite_phy(o_heat_volc, zx_tmp_fi3d)
    13891389          DO k=1, klev
    1390              zx_tmp_fi3d(:,k)=cool_volc(:,k)*swradcorr(:)
     1390             zx_tmp_fi3d(:,k)=cool_volc(:,k)
    13911391          ENDDO
    13921392          CALL histwrite_phy(o_cool_volc, zx_tmp_fi3d)
Note: See TracChangeset for help on using the changeset viewer.