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/Dust/read_surface.F90

    r5075 r5087  
    124124           if (isinversed) then
    125125                        call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
    126      & tmp_dyn_invers_glo, tmp_fi_glo)
     126   tmp_dyn_invers_glo, tmp_fi_glo)
    127127!              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    128128!              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn_invers, tmp_fi)
    129129           else     
    130130                        call gr_dyn_fi(1, nbp_lon+1, nbp_lat, klon_glo, &
    131      &   tmp_dyn_glo, tmp_fi_glo)
     131     tmp_dyn_glo, tmp_fi_glo)
    132132!              call gr_dyn_fi(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
    133133!              call gr_dyn_fi_p(1, iip1, jjp1, klon, tmp_dyn, tmp_fi)
Note: See TracChangeset for help on using the changeset viewer.