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/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
Note: See TracChangeset for help on using the changeset viewer.