physics/GFS_surface_generic.F90: remove old code that no longer exist…

…s in IPD
NCAR · Mar 25, 2020 · 5c134c1 · 5c134c1
1 parent bde224d
commit 5c134c1
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/physics/GFS_surface_generic.F90 b/physics/GFS_surface_generic.F90
@@ -104,10 +104,6 @@ subroutine GFS_surface_generic_pre_run (im, levs, vfrac, islmsk, isot, ivegsrc,
         ! Set initial quantities for stochastic physics deltas
         if (do_sppt) then
           dtdtr     = 0.0
-          do i=1,im
-            drain_cpl(i) = rain_cpl (i)
-            dsnow_cpl(i) = snow_cpl (i)
-          enddo
         endif
 
         ! Scale random patterns for surface perturbations with perturbation size