removed comments, commented code is deprecated.

NGEET · May 2, 2016 · 165120f · 165120f
1 parent 7321b57
commit 165120f
Showing 1 changed file with 0 additions and 50 deletions.
diff --git a/components/clm/src/ED/main/EDInitMod.F90 b/components/clm/src/ED/main/EDInitMod.F90
@@ -41,56 +41,6 @@ module EDInitMod
 
   ! ============================================================================
 
-  !! REMOVING INTERF-TODO  (RGK)
-  !!subroutine ed_init( bounds, ed_allsites_inst, ed_clm_inst, &
-  !!  ed_phenology_inst, waterstate_inst, canopystate_inst)
-  !!!
-  !!  ! !DESCRIPTION:
-  !!  ! use ed_allsites_inst at the top level, then pass it through arg. list.  then we can
-  !!  ! actually use intents
-  !!  !
-  !!  ! !USES: 
-  !!  !
-  !!  ! !ARGUMENTS    
-  !!  type(bounds_type)       , intent(in)            :: bounds  ! clump bounds
-  !!  type(ed_site_type)      , intent(inout), target :: ed_allsites_inst( bounds%begg: )
-  !!  type(ed_clm_type)       , intent(inout)         :: ed_clm_inst
-  !!  type(ed_phenology_type) , intent(inout)         :: ed_phenology_inst
-  !!  type(waterstate_type)   , intent(inout)         :: waterstate_inst
-  !!  type(canopystate_type)  , intent(inout)         :: canopystate_inst
-  !!  !
-  !!  ! !LOCAL VARIABLES:
-  !!  integer :: g
-  !!  !----------------------------------------------------------------------
-
-  !!if (masterproc) then
-  !!     if (DEBUG) then
-  !!        write(iulog,*) 'ED: restart ? = ' ,is_restart()
-  !!        write(iulog,*) 'ED_Mod.F90 :: SPITFIRE_SWITCH (use_ed_spit_fire) ', &
-  !!                        use_ed_spit_fire
-  !!        write(iulog,*) 'ED_Mod.F90 :: cohorts_per_gcell ',cohorts_per_gcell
-  !!     end if
-  !!  end if
-
-  !!  !
-  !!  ! don't call this if we are restarting
-  !!  !
-  !!  if ( .not. is_restart() ) then
-  !!     call ed_init_sites( bounds, ed_allsites_inst(bounds%begg:bounds%endg))
-
-  !!     do g = bounds%begg,bounds%endg
-  !!        if (ed_allsites_inst(g)%istheresoil) then
-  !!           call ed_update_site(ed_allsites_inst(g))
-  !!        end if
-  !!     end do
-
-  !!     call ed_clm_inst%ed_clm_link( bounds, ed_allsites_inst(bounds%begg:bounds%endg), &
-  !!          ed_phenology_inst, waterstate_inst, canopystate_inst)
-  !!  endif
-
-!!  end subroutine ed_init
-
-  ! ============================================================================
   subroutine ed_init_sites( bounds, ed_allsites_inst )
     !
     ! !DESCRIPTION: