Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/yamada_c.F90

Timestamp:

Jul 20, 2024, 12:00:23 PM (4 months ago)

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/yamada_c.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/yamada_c.F90

@@ -3 +3 @@
 !
       SUBROUTINE yamada_c(ngrid,timestep,plev,play &
-     &   ,pu,pv,pt,d_u,d_v,d_t,cd,q2,km,kn,kq,d_t_diss,ustar &
-     &   ,iflag_pbl)
+     ,pu,pv,pt,d_u,d_v,d_t,cd,q2,km,kn,kq,d_t_diss,ustar &
+     ,iflag_pbl)
       USE dimphy, ONLY: klon, klev
       USE print_control_mod, ONLY: prt_level
@@ -129 +129 @@
       fsm(ri)=1.96*(0.1912-ri)*(0.2341-ri)/((1.-ri)*(0.2231-ri))
       fl(zzz,zl0,zq2,zn2)= &
-     &     max(min(l0(ig)*kap*zlev(ig,k)/(kap*zlev(ig,k)+l0(ig)) &
-     &     ,0.5*sqrt(q2(ig,k))/sqrt(max(n2(ig,k),1.e-10))) ,1.)
+       max(min(l0(ig)*kap*zlev(ig,k)/(kap*zlev(ig,k)+l0(ig)) &
+       ,0.5*sqrt(q2(ig,k))/sqrt(max(n2(ig,k),1.e-10))) ,1.)
 
 
@@ -242 +242 @@
                                                       DO ig=1,ngrid
             zlev(ig,nlev)=zlay(ig,nlay) &
-     &             +( zlay(ig,nlay) - zlev(ig,nlev-1) )
+               +( zlay(ig,nlay) - zlev(ig,nlev-1) )
                                                       ENDDO
 !!!!!! <----