Merge pull request #2860 from olyson/rmnumsolar

Remove num_solar and implement coszen filters in UrbanAlbedoMod.F90
ESCOMP · Nov 10, 2024 · d71b04f · d71b04f
2 parents 2ee7382 + 2441a17
commit d71b04f
Show file tree

Hide file tree

Showing 2 changed files with 572 additions and 555 deletions.
diff --git a/src/biogeophys/SurfaceAlbedoType.F90 b/src/biogeophys/SurfaceAlbedoType.F90
@@ -242,12 +242,12 @@ subroutine InitHistory(this, bounds)
     this%albgrd_col(begc:endc,:) = spval
     call hist_addfld2d (fname='ALBGRD', units='proportion', type2d='numrad', &
          avgflag='A', long_name='ground albedo (direct)', &
-         ptr_col=this%albgrd_col, default='inactive')
+         ptr_col=this%albgrd_col, default='active')
 
     this%albgri_col(begc:endc,:) = spval
     call hist_addfld2d (fname='ALBGRI', units='proportion', type2d='numrad', &
          avgflag='A', long_name='ground albedo (indirect)', &
-         ptr_col=this%albgri_col, default='inactive')
+         ptr_col=this%albgri_col, default='active')
 
     if (use_SSRE) then
        this%albdSF_patch(begp:endp,:) = spval