Code indent for MOD_Initialize.F90.

mkinidata/MOD_Initialize.F90

@@ -412,25 +412,25 @@ SUBROUTINE initialize (casename, dir_landdata, dir_restart, &
 ! ................................
 ! 1.6 Initialize TUNABLE constants
 ! ................................
-      zlnd   = 0.01    !Roughness length for soil [m]
-      zsno   = 0.0024  !Roughness length for snow [m]
-      csoilc = 0.004   !Drag coefficient for soil under canopy [-]
-      dewmx  = 0.1     !maximum dew
+      zlnd   = 0.01     !Roughness length for soil [m]
+      zsno   = 0.0024   !Roughness length for snow [m]
+      csoilc = 0.004    !Drag coefficient for soil under canopy [-]
+      dewmx  = 0.1      !maximum dew
 
       ! 'wtfact' is updated to gridded 'fsatmax' data. (by Shupeng Zhang)
-      ! wtfact = 0.38    !Maximum saturated fraction (global mean; see Niu et al., 2005)
-
-      capr   = 0.34    !Tuning factor to turn first layer T into surface T
-      cnfac  = 0.5     !Crank Nicholson factor between 0 and 1
-      ssi    = 0.033   !Irreducible water saturation of snow
-      wimp   = 0.05    !Water impremeable if porosity less than wimp
-      pondmx = 10.0    !Ponding depth (mm)
-      smpmax = -1.5e5  !Wilting point potential in mm
-      smpmin = -1.e8   !Restriction for min of soil poten. (mm)
-      smpmax_hr = -2.e2  !Wilting point potential in mm
-      smpmin_hr = -2.e5   !Restriction for min of soil poten. (mm)
-      trsmx0 = 2.e-4   !Max transpiration for moist soil+100% veg. [mm/s]
-      tcrit  = 2.5     !critical temp. to determine rain or snow
+      ! wtfact = 0.38   !Maximum saturated fraction (global mean; see Niu et al., 2005)
+
+      capr   = 0.34     !Tuning factor to turn first layer T into surface T
+      cnfac  = 0.5      !Crank Nicholson factor between 0 and 1
+      ssi    = 0.033    !Irreducible water saturation of snow
+      wimp   = 0.05     !Water impremeable if porosity less than wimp
+      pondmx = 10.0     !Ponding depth (mm)
+      smpmax = -1.5e5   !Wilting point potential in mm
+      smpmin = -1.e8    !Restriction for min of soil poten. (mm)
+      smpmax_hr = -2.e2 !Wilting point potential in mm
+      smpmin_hr = -2.e5 !Restriction for min of soil poten. (mm)
+      trsmx0 = 2.e-4    !Max transpiration for moist soil+100% veg. [mm/s]
+      tcrit  = 2.5      !critical temp. to determine rain or snow
       wetwatmax = 200.0 !maximum wetland water (mm)
 
       ! for SIMTOP model: read saturated fraction parameter data from files.
@@ -1397,7 +1397,7 @@ SUBROUTINE initialize (casename, dir_landdata, dir_restart, &
             ELSEIF (lake_id(i) > 0) THEN
                wdsrf_bsnhru(hs:he) = lakeinfo(i)%depth0
             ENDIF
-         
+
             veloc_bsnhru(hs:he) = 0.
             wdsrf_bsnhru_prev(hs:he) = wdsrf_bsnhru(hs:he)
          ENDDO