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

Repliement de lignes trop longues pour gfortran.

Location:
LMDZ5/trunk/libf/phylmd/rrtm
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r2146 r2148  
    217217          flag_aerosol .EQ. 6 ) THEN
    218218
    219         CALL readaerosol_interp(id_SSSSM_phy ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp5)
    220         CALL readaerosol_interp(id_CSSSM_phy ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp6)
    221         CALL readaerosol_interp(id_ASSSM_phy ,itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp7)
     219        CALL readaerosol_interp(id_SSSSM_phy ,itap, pdtphys,rjourvrai, &
     220        debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp5)
     221        CALL readaerosol_interp(id_CSSSM_phy ,itap, pdtphys,rjourvrai, &
     222        debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp6)
     223        CALL readaerosol_interp(id_ASSSM_phy ,itap, pdtphys, rjourvrai, &
     224        debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp7)
    222225        loadss(:)=load_tmp5(:)+load_tmp6(:)+load_tmp7(:)
    223226     ELSE

  • 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.