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

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/VARphy.F90

@@ -26 +26 @@
       INTEGER, PARAMETER ::  iun=1                                             
       REAL, PARAMETER    ::  zer0 = 0.0e+0, half = 0.5e+0, un_1 = 1.0e+0,     &
-     &                       eps6 = 1.0e-6, R_1000=1.e3   
+                         eps6 = 1.0e-6, R_1000=1.e3
       REAL, PARAMETER    ::  zero = 0.0e+0, demi = 0.5e+0, unun = 1.0e+0,     &
-     &                       epsi = 1.0e-6, eps9 = 1.0e-9         
+                         epsi = 1.0e-6, eps9 = 1.0e-9
       REAL               ::  ea_MAX,ea_MIN                                                                               
       REAL, PARAMETER    ::  pi = 3.141592653589793238462643e0
@@ -40 +40 @@
                                                                                
       REAL, PARAMETER    ::  gravit = 9.81e0,      gravi2 = gravit**2 ,       &
-     &                       grvinv = 1./gravit                       
+                         grvinv = 1./gravit
 !C +                   gravit: Earth Gravity Acceleration    = 9.81    m/s2    
 !C +                   gravi2: idem (squared)                                  
@@ -55 +55 @@
                                                        
       REAL, PARAMETER    ::  RVapor=461.e0, Lv_H2O=2.5008e+6,&
-     &                       Ls_H2O=2.8345e+6, r_LvCp=2490.04,r_LcCp=332.27,  &
-     &                       r_LsCp=2822.31            
+                         Ls_H2O=2.8345e+6, r_LvCp=2490.04,r_LcCp=332.27,  &
+                         r_LsCp=2822.31
 !C +                   cp    : dry air specific heat at constant p (1004 J/kg/K) 
 
       REAL, PARAMETER    ::  LhfH2O=3.34e+5, LhvH2O=2.5008e+6,&
-     &                       LhsH2O=2.8345e+6     
+                         LhsH2O=2.8345e+6
       REAL, PARAMETER    ::  rhoWat=1000.00e0    
 !C +                   rhoWat: Water Specific Mass            = 1000.00d+0 kg/m3 
@@ -81 +81 @@
                                                                                 
       REAL, PARAMETER    ::  TfSnow=273.15e+0,csnow=2105.00e+0,r0sno=3.00e+1, &
-     &                       blsno=3.30e+2,   Lf_H2O=3.337e+5                          
+                         blsno=3.30e+2,   Lf_H2O=3.337e+5
 !C +...                TfSnow:        Snow melting Temperature=  273.15d+0 K     
 !C +                    csnow:Heat Capacity of Snow             2105      J/kg/K