Remove rst variables and restructure hist loops

noaa-oar-arl · Nov 18, 2024 · 98898be · 98898be
1 parent fe1824b
commit 98898be
Show file tree

Hide file tree

Showing 5 changed files with 158 additions and 276 deletions.
diff --git a/src/canopy_alloc.F90 b/src/canopy_alloc.F90
@@ -59,18 +59,6 @@ SUBROUTINE canopy_alloc
         if(.not.allocated(ppfd_shade240_tmp))  allocate(ppfd_shade240_tmp(241,nlat*nlon,modlays))
         if(.not.allocated(tmp2mref_tmp))       allocate(tmp2mref_tmp(25,nlat*nlon))
         if(.not.allocated(ubzref_tmp))         allocate(ubzref_tmp(25,nlat*nlon))
-        if(.not.allocated(tleaf_sun24_rst))    allocate(tleaf_sun24_rst(24,nlat*nlon,modlays))
-        if(.not.allocated(tleaf_shade24_rst))  allocate(tleaf_shade24_rst(24,nlat*nlon,modlays))
-        if(.not.allocated(tleaf_ave24_rst))    allocate(tleaf_ave24_rst(24,nlat*nlon,modlays))
-        if(.not.allocated(ppfd_sun24_rst))     allocate(ppfd_sun24_rst(24,nlat*nlon,modlays))
-        if(.not.allocated(ppfd_shade24_rst))   allocate(ppfd_shade24_rst(24,nlat*nlon,modlays))
-        if(.not.allocated(tleaf_sun240_rst))   allocate(tleaf_sun240_rst(240,nlat*nlon,modlays))
-        if(.not.allocated(tleaf_shade240_rst)) allocate(tleaf_shade240_rst(240,nlat*nlon,modlays))
-        if(.not.allocated(tleaf_ave240_rst))   allocate(tleaf_ave240_rst(240,nlat*nlon,modlays))
-        if(.not.allocated(ppfd_sun240_rst))    allocate(ppfd_sun240_rst(240,nlat*nlon,modlays))
-        if(.not.allocated(ppfd_shade240_rst))  allocate(ppfd_shade240_rst(240,nlat*nlon,modlays))
-        if(.not.allocated(tmp2mref_rst))       allocate(tmp2mref_rst(24,nlat*nlon))
-        if(.not.allocated(ubzref_rst))         allocate(ubzref_rst(24,nlat*nlon))
     end if
 
     if(.not.allocated(tleaf_sun24))        allocate(tleaf_sun24(nlat*nlon,modlays))
@@ -101,18 +89,6 @@ SUBROUTINE canopy_alloc
         if(.not.allocated(ppfd_shade240_tmp_3d))  allocate(ppfd_shade240_tmp_3d(241,nlon,nlat,modlays))
         if(.not.allocated(tmp2mref_tmp_3d))       allocate(tmp2mref_tmp_3d(25,nlon,nlat))
         if(.not.allocated(ubzref_tmp_3d))         allocate(ubzref_tmp_3d(25,nlon,nlat))
-        if(.not.allocated(tleaf_sun24_rst_3d))    allocate(tleaf_sun24_rst_3d(24,nlon,nlat,modlays))
-        if(.not.allocated(tleaf_shade24_rst_3d))  allocate(tleaf_shade24_rst_3d(24,nlon,nlat,modlays))
-        if(.not.allocated(tleaf_ave24_rst_3d))    allocate(tleaf_ave24_rst_3d(24,nlon,nlat,modlays))
-        if(.not.allocated(ppfd_sun24_rst_3d))     allocate(ppfd_sun24_rst_3d(24,nlon,nlat,modlays))
-        if(.not.allocated(ppfd_shade24_rst_3d))   allocate(ppfd_shade24_rst_3d(24,nlon,nlat,modlays))
-        if(.not.allocated(tleaf_sun240_rst_3d))   allocate(tleaf_sun240_rst_3d(240,nlon,nlat,modlays))
-        if(.not.allocated(tleaf_shade240_rst_3d)) allocate(tleaf_shade240_rst_3d(240,nlon,nlat,modlays))
-        if(.not.allocated(tleaf_ave240_rst_3d))   allocate(tleaf_ave240_rst_3d(240,nlon,nlat,modlays))
-        if(.not.allocated(ppfd_sun240_rst_3d))    allocate(ppfd_sun240_rst_3d(240,nlon,nlat,modlays))
-        if(.not.allocated(ppfd_shade240_rst_3d))  allocate(ppfd_shade240_rst_3d(240,nlon,nlat,modlays))
-        if(.not.allocated(tmp2mref_rst_3d))       allocate(tmp2mref_rst_3d(24,nlon,nlat))
-        if(.not.allocated(ubzref_rst_3d))         allocate(ubzref_rst_3d(24,nlon,nlat))
     end if
 
     if(.not.allocated(tleaf_sun24_3d))        allocate(tleaf_sun24_3d(nlon,nlat,modlays))