Ignore:
Timestamp:
Jul 20, 2024, 12:00:23 PM (6 months ago)
Author:
abarral
Message:

remove fixed-form \s+& remaining in .f90,.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_call_cloud_optics_prop.F90

    r5082 r5087  
    101101        IF (ok_new_lscp) THEN
    102102          CALL icefrac_lscp(klon,temp(:,k),iflag_ice_thermo,distcltop(:,k),temp_cltop(:,k), &
    103    &         icefrac_optics(:,k),dzfice(:,k))
     103           icefrac_optics(:,k),dzfice(:,k))
    104104        ELSE
    105105          CALL icefrac_lsc(klon,temp(:,k),pplay(1:klon,k)/paprs(1:klon,1),icefrac_optics(:,k))
Note: See TracChangeset for help on using the changeset viewer.