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/lmdz_thermcell_env.F90

    r5082 r5087  
    33
    44   SUBROUTINE thermcell_env(ngrid,nlay,po,pt,pu,pv,pplay,  &
    5      &           pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,pqsat,lcong,lintercong,lev_out)
     5             pplev,zo,zh,zl,ztv,zthl,zu,zv,zpspsk,pqsat,lcong,lintercong,lev_out)
    66
    77!--------------------------------------------------------------
    … …  
    8989            lcong(ig)=ll+1
    9090            lintercong(ig)=(ll*(zh(ig,ll+1)-zh(ig,ll))  &
    91      &               -zh(ig,ll)+273.15)/(zh(ig,ll+1)-zh(ig,ll))
     91                 -zh(ig,ll)+273.15)/(zh(ig,ll+1)-zh(ig,ll))
    9292         endif
    9393      enddo
Note: See TracChangeset for help on using the changeset viewer.