Changeset 4811


Ignore:
Timestamp:
Feb 9, 2024, 9:36:31 AM (3 months ago)
Author:
idelkadi
Message:

Continued implementation of the Ecrad double call in LMDZ: Correction

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r4810 r4811  
    11621162
    11631163       IF (vars_defined) THEN
    1164           zx_tmp_fi2d(:) = swdn_s2(:,1)*swradcorr(:)
    1165        ENDIF
    1166        CALL histwrite_phy(o_SWdnSFC_s2, zx_tmp_fi2d)
    1167 
    1168        IF (vars_defined) THEN
    1169           zx_tmp_fi2d(:) = swdn0_s2(:,1)*swradcorr(:)
    1170        ENDIF
    1171        CALL histwrite_phy(o_SWdnSFCclr_s2, zx_tmp_fi2d)
    1172 
    1173        IF (vars_defined) THEN
    11741164         DO k=1, klevp1
    11751165           zx_tmp_fi3d1(:,k)=swup_s2(:,k)*swradcorr(:)
Note: See TracChangeset for help on using the changeset viewer.