Merge pull request #428 from rgknox/pft-arrays

removing large 3D radiation arrays from restarts

Author: rgknox

biogeochem/EDPatchDynamicsMod.F90

@@ -1316,6 +1316,8 @@ subroutine create_patch(currentSite, new_patch, age, areap,cwd_ag_local,cwd_bg_l
     new_patch%frac_burnt         = 0._r8  
     new_patch%total_tree_area    = 0.0_r8  
     new_patch%NCL_p              = 1
+
+   
 
   end subroutine create_patch
 
@@ -1440,6 +1442,12 @@ subroutine zero_patch(cp_p)
     currentPatch%c_stomata                  = 0.0_r8 ! This is calculated immediately before use
     currentPatch%c_lblayer                  = 0.0_r8
 
+    currentPatch%solar_zenith_flag          = .false.
+    currentPatch%solar_zenith_angle         = nan
+
+    currentPatch%gnd_alb_dir(:)             = nan
+    currentPatch%gnd_alb_dif(:)             = nan
+
   end subroutine zero_patch
 
   ! ============================================================================