Ignore:
Timestamp:
Jul 20, 2024, 12:00:23 PM (2 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/StratAer/miecalc_aer.F90

    r5082 r5087  
    258258      Nwv=1
    259259      dlambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv)= &
    260       &  lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv)- &
    261       &  lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv+1)
     260    lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv)- &
     261    lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv+1)
    262262      DO Nwv=2, NwvmaxLW-1
    263263      dlambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv)= &
    264       &  (lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv-1)- &
    265       &  lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv+1))/2.
     264    (lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv-1)- &
     265    lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv+1))/2.
    266266      ENDDO
    267267      Nwv=NwvmaxLW
    268268      dlambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv)= &
    269       &  lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv-1)- &
    270       &  lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv)
     269    lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv-1)- &
     270    lambda_int(NwvmaxSW+nwave_sw+nwave_lw+Nwv)
    271271
    272272      IF (refr_ind_interpol) THEN
Note: See TracChangeset for help on using the changeset viewer.