Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/cond_evap_tstep_mod.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/StratAer/cond_evap_tstep_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/cond_evap_tstep_mod.F90

@@ -10 +10 @@
 
       SUBROUTINE condens_evapor_rate_kelvin(R2SO4G,t_seri,pplay,R2SO4, &
-          & DENSO4,f_r_wet,R2SO4ik,DENSO4ik,f_r_wetik,FL,ASO4,DNDR)
+   DENSO4,f_r_wet,R2SO4ik,DENSO4ik,f_r_wetik,FL,ASO4,DNDR)
 !
 !     INPUT: 
@@ -140 +140 @@
 !       SENFELD
         FL(IK)=FL1*RRSI_wet(IK)**2*( 1.0 +RKNUD ) & 
-     &     /( 1.0 +ALPHA/(2.0*RKNUD) +RKNUD )
+       /( 1.0 +ALPHA/(2.0*RKNUD) +RKNUD )
 !       TURCO
 !        RL= (4.0/3.0 +0.71/RKNUD)/(1.0+1.0/RKNUD)
@@ -166 +166 @@
 !********************************************************************
       SUBROUTINE condens_evapor_rate(R2SO4G,t_seri,pplay,ACTSO4,R2SO4, &
-                   & DENSO4,f_r_wet,FL,ASO4,DNDR)
+   DENSO4,f_r_wet,FL,ASO4,DNDR)
 !
 !     INPUT: 
@@ -263 +263 @@
 !       SENFELD
         FL(IK)=FL1*RRSI_wet(IK)**2*( 1.0 +RKNUD ) & 
-     &     /( 1.0 +ALPHA/(2.0*RKNUD) +RKNUD )
+       /( 1.0 +ALPHA/(2.0*RKNUD) +RKNUD )
 !       TURCO
 !        RL= (4.0/3.0 +0.71/RKNUD)/(1.0+1.0/RKNUD)