Ignore:
Timestamp:
Jul 20, 2024, 12:00:23 PM (4 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_cloud_optics_prop.F90

    r5082 r5087  
    306306            iwc=icefrac_optics(i, k)*radocond(i, k)/pclc(i,k)*zrho(i,k)*1000. !in cloud ice water content in g/m3
    307307            dei=(1.2351+0.0105*(temp(i,k)-273.15))*(45.8966*(iwc**0.2214) + &
    308                & 0.7957*(iwc**0.2535)*(temp(i,k)-83.15))
     308   0.7957*(iwc**0.2535)*(temp(i,k)-83.15))
    309309            !deimax=155.0
    310310            !deimin=20.+40*cos(abs(latitude_deg(i))/180.*RPI)
    … …  
    414414            iwc=icefrac_optics(i, k)*radocond(i, k)/pclc(i,k)*zrho(i,k)*1000. !in cloud ice water content in g/m3
    415415            dei=(1.2351+0.0105*(temp(i,k)-273.15))*(45.8966*(iwc**0.2214) + &
    416                &0.7957*(iwc**0.2535)*(temp(i,k)-83.15))
     416  0.7957*(iwc**0.2535)*(temp(i,k)-83.15))
    417417            !deimax=155.0
    418418            !deimin=20.+40*cos(abs(latitude_deg(i))/180.*RPI)
    … …  
    633633            IF (first) THEN
    634634              WRITE (*, *) 'Hypothese de recouvrement: MAXIMUM_ &
    635                 &                                             &
    636                 &                                          RANDOM'
     635
     636                                            RANDOM'
    637637              first = .FALSE.
    638638            ENDIF
Note: See TracChangeset for help on using the changeset viewer.