Ignore:
Timestamp:
Nov 18, 2014, 6:55:52 PM (10 years ago)
Author:
fhourdin
Message:

Repliement de lignes trop longues pour gfortran.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90

    r2146 r2148  
    164164    DO wave=1, nwave
    165165    DO k=1, klev
    166     tausum_aero(:,wave,id_STRAT_phy)=tausum_aero(:,wave,id_STRAT_phy)+tau_aer_strat(:,k)*alpha_sw_strat_wave(wave)/alpha_sw_strat_wave(2)
     166    tausum_aero(:,wave,id_STRAT_phy)=tausum_aero(:,wave,id_STRAT_phy)+ &
     167    tau_aer_strat(:,k)*alpha_sw_strat_wave(wave)/alpha_sw_strat_wave(2)
    167168    ENDDO
    168169    ENDDO
Note: See TracChangeset for help on using the changeset viewer.