Merge pull request #428 from rgknox/pft-arrays

removing large 3D radiation arrays from restarts
NGEET · Nov 6, 2018 · b54091d · b54091d
2 parents 49535a8 + 1f0db48
commit b54091d
Show file tree

Hide file tree

Showing 5 changed files with 1,120 additions and 920 deletions.
diff --git a/biogeochem/EDPatchDynamicsMod.F90 b/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
 
   ! ============================================================================