Added a wrapper call to norman radiation, which allows us to re-build…

… the 3D radiation patch variables, thus decreasing restart file sizes.
NGEET · Oct 17, 2018 · 7685441 · 7685441
1 parent 44d45f5
commit 7685441
Show file tree

Hide file tree

Showing 5 changed files with 1,116 additions and 902 deletions.
diff --git a/biogeochem/EDPatchDynamicsMod.F90 b/biogeochem/EDPatchDynamicsMod.F90
@@ -1237,6 +1237,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
 
@@ -1361,6 +1363,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          = -1
+    currentPatch%solar_zenith_angle         = nan
+
+    currentPatch%gnd_alb_dir(:)             = nan
+    currentPatch%gnd_alb_dif(:)             = nan
+
   end subroutine zero_patch
 
   ! ============================================================================