Skip to content
12 changes: 6 additions & 6 deletions src/biogeophys/EnergyFluxType.F90
Original file line number Diff line number Diff line change
Expand Up @@ -340,7 +340,7 @@ subroutine InitHistory(this, bounds, is_simple_buildtemp, is_prog_buildtemp)
this%eflx_snomelt_u_col(begc:endc) = spval
call hist_addfld1d (fname='FSM_U', units='W/m^2', &
avgflag='A', long_name='Urban snow melt heat flux', &
ptr_col=this%eflx_snomelt_u_col, c2l_scale_type='urbanf', set_nourb=spval, default='inactive')
ptr_col=this%eflx_snomelt_u_col, c2l_scale_type='urbanf', set_nourb=spval)

this%eflx_lwrad_net_patch(begp:endp) = spval
call hist_addfld1d (fname='FIRA', units='W/m^2', &
Expand Down Expand Up @@ -480,7 +480,7 @@ subroutine InitHistory(this, bounds, is_simple_buildtemp, is_prog_buildtemp)
this%eflx_lwrad_net_u_patch(begp:endp) = spval
call hist_addfld1d (fname='FIRA_U', units='W/m^2', &
avgflag='A', long_name='Urban net infrared (longwave) radiation', &
ptr_patch=this%eflx_lwrad_net_u_patch, c2l_scale_type='urbanf', set_nourb=spval, default='inactive')
ptr_patch=this%eflx_lwrad_net_u_patch, c2l_scale_type='urbanf', set_nourb=spval)

this%eflx_soil_grnd_patch(begp:endp) = spval
call hist_addfld1d (fname='EFLX_SOIL_GRND', units='W/m^2', &
Expand All @@ -490,12 +490,12 @@ subroutine InitHistory(this, bounds, is_simple_buildtemp, is_prog_buildtemp)
this%eflx_lwrad_out_u_patch(begp:endp) = spval
call hist_addfld1d (fname='FIRE_U', units='W/m^2', &
avgflag='A', long_name='Urban emitted infrared (longwave) radiation', &
ptr_patch=this%eflx_lwrad_out_u_patch, c2l_scale_type='urbanf', set_nourb=spval, default='inactive')
ptr_patch=this%eflx_lwrad_out_u_patch, c2l_scale_type='urbanf', set_nourb=spval)

this%eflx_sh_tot_u_patch(begp:endp) = spval
call hist_addfld1d (fname='FSH_U', units='W/m^2', &
avgflag='A', long_name='Urban sensible heat', &
ptr_patch=this%eflx_sh_tot_u_patch, c2l_scale_type='urbanf', set_nourb=spval, default='inactive')
ptr_patch=this%eflx_sh_tot_u_patch, c2l_scale_type='urbanf', set_nourb=spval)

this%eflx_sh_precip_conversion_col(begc:endc) = spval
call hist_addfld1d (fname = 'FSH_PRECIP_CONVERSION', units='W/m^2', &
Expand All @@ -505,12 +505,12 @@ subroutine InitHistory(this, bounds, is_simple_buildtemp, is_prog_buildtemp)
this%eflx_lh_tot_u_patch(begp:endp) = spval
call hist_addfld1d (fname='EFLX_LH_TOT_U', units='W/m^2', &
avgflag='A', long_name='Urban total evaporation', &
ptr_patch=this%eflx_lh_tot_u_patch, c2l_scale_type='urbanf', set_nourb=spval, default='inactive')
ptr_patch=this%eflx_lh_tot_u_patch, c2l_scale_type='urbanf', set_nourb=spval)

this%eflx_soil_grnd_u_patch(begp:endp) = spval
call hist_addfld1d (fname='FGR_U', units='W/m^2', &
avgflag='A', long_name='Urban heat flux into soil/snow including snow melt', &
ptr_patch=this%eflx_soil_grnd_u_patch, c2l_scale_type='urbanf', set_nourb=spval, default='inactive')
ptr_patch=this%eflx_soil_grnd_u_patch, c2l_scale_type='urbanf', set_nourb=spval)

this%netrad_patch(begp:endp) = spval
call hist_addfld1d (fname='Rnet', units='W/m^2', &
Expand Down
2 changes: 1 addition & 1 deletion src/biogeophys/SoilStateType.F90
Original file line number Diff line number Diff line change
Expand Up @@ -280,7 +280,7 @@ subroutine InitHistory(this, bounds)
this%soilalpha_u_col(begc:endc) = spval
call hist_addfld1d (fname='SoilAlpha_U', units='unitless', &
avgflag='A', long_name='urban factor limiting ground evap', &
ptr_col=this%soilalpha_u_col, set_nourb=spval, default='inactive')
ptr_col=this%soilalpha_u_col, set_nourb=spval)

if (use_cn) then
this%watsat_col(begc:endc,:) = spval
Expand Down
2 changes: 1 addition & 1 deletion src/biogeophys/SolarAbsorbedType.F90
Original file line number Diff line number Diff line change
Expand Up @@ -206,7 +206,7 @@ subroutine InitHistory(this, bounds)
this%fsa_u_patch(begp:endp) = spval
call hist_addfld1d (fname='FSA_U', units='W/m^2', &
avgflag='A', long_name='Urban absorbed solar radiation', &
ptr_patch=this%fsa_u_patch, c2l_scale_type='urbanf', set_nourb=spval, default='inactive')
ptr_patch=this%fsa_u_patch, c2l_scale_type='urbanf', set_nourb=spval)

this%fsr_patch(begp:endp) = spval
call hist_addfld1d (fname='FSR', units='W/m^2', &
Expand Down
14 changes: 7 additions & 7 deletions src/biogeophys/TemperatureType.F90
Original file line number Diff line number Diff line change
Expand Up @@ -343,7 +343,7 @@ subroutine InitHistory(this, bounds, is_simple_buildtemp, is_prog_buildtemp )
this%t_grnd_u_col(begc:endc) = spval
call hist_addfld1d (fname='TG_U', units='K', &
avgflag='A', long_name='Urban ground temperature', &
ptr_col=this%t_grnd_u_col, set_nourb=spval, c2l_scale_type='urbans', default='inactive')
ptr_col=this%t_grnd_u_col, set_nourb=spval, c2l_scale_type='urbans')

this%t_lake_col(begc:endc,:) = spval
call hist_addfld2d (fname='TLAKE', units='K', type2d='levlak', &
Expand Down Expand Up @@ -373,7 +373,7 @@ subroutine InitHistory(this, bounds, is_simple_buildtemp, is_prog_buildtemp )
this%t_ref2m_r_patch(begp:endp) = spval
call hist_addfld1d (fname='TSA_R', units='K', &
avgflag='A', long_name='Rural 2m air temperature', &
ptr_patch=this%t_ref2m_r_patch, set_spec=spval, default='inactive')
ptr_patch=this%t_ref2m_r_patch, set_spec=spval)

this%t_ref2m_min_patch(begp:endp) = spval
call hist_addfld1d (fname='TREFMNAV', units='K', &
Expand All @@ -388,27 +388,27 @@ subroutine InitHistory(this, bounds, is_simple_buildtemp, is_prog_buildtemp )
this%t_ref2m_min_r_patch(begp:endp) = spval
call hist_addfld1d (fname='TREFMNAV_R', units='K', &
avgflag='A', long_name='Rural daily minimum of average 2-m temperature', &
ptr_patch=this%t_ref2m_min_r_patch, set_spec=spval, default='inactive')
ptr_patch=this%t_ref2m_min_r_patch, set_spec=spval)

this%t_ref2m_max_r_patch(begp:endp) = spval
call hist_addfld1d (fname='TREFMXAV_R', units='K', &
avgflag='A', long_name='Rural daily maximum of average 2-m temperature', &
ptr_patch=this%t_ref2m_max_r_patch, set_spec=spval, default='inactive')
ptr_patch=this%t_ref2m_max_r_patch, set_spec=spval)

this%t_ref2m_u_patch(begp:endp) = spval
call hist_addfld1d (fname='TSA_U', units='K', &
avgflag='A', long_name='Urban 2m air temperature', &
ptr_patch=this%t_ref2m_u_patch, set_nourb=spval, default='inactive')
ptr_patch=this%t_ref2m_u_patch, set_nourb=spval)

this%t_ref2m_min_u_patch(begp:endp) = spval
call hist_addfld1d (fname='TREFMNAV_U', units='K', &
avgflag='A', long_name='Urban daily minimum of average 2-m temperature', &
ptr_patch=this%t_ref2m_min_u_patch, set_nourb=spval, default='inactive')
ptr_patch=this%t_ref2m_min_u_patch, set_nourb=spval)

this%t_ref2m_max_u_patch(begp:endp) = spval
call hist_addfld1d (fname='TREFMXAV_U', units='K', &
avgflag='A', long_name='Urban daily maximum of average 2-m temperature', &
ptr_patch=this%t_ref2m_max_u_patch, set_nourb=spval, default='inactive')
ptr_patch=this%t_ref2m_max_u_patch, set_nourb=spval)

if (use_biomass_heat_storage) then
this%t_stem_patch(begp:endp) = spval
Expand Down
4 changes: 2 additions & 2 deletions src/biogeophys/WaterDiagnosticBulkType.F90
Original file line number Diff line number Diff line change
Expand Up @@ -347,15 +347,15 @@ subroutine InitBulkHistory(this, bounds)
units='%', &
avgflag='A', &
long_name=this%info%lname('Rural 2m relative humidity'), &
ptr_patch=this%rh_ref2m_r_patch, set_spec=spval, default='inactive')
ptr_patch=this%rh_ref2m_r_patch, set_spec=spval)

this%rh_ref2m_u_patch(begp:endp) = spval
call hist_addfld1d ( &
fname=this%info%fname('RH2M_U'), &
units='%', &
avgflag='A', &
long_name=this%info%lname('Urban 2m relative humidity'), &
ptr_patch=this%rh_ref2m_u_patch, set_nourb=spval, default='inactive')
ptr_patch=this%rh_ref2m_u_patch, set_nourb=spval)

this%rh_af_patch(begp:endp) = spval
call hist_addfld1d ( &
Expand Down
2 changes: 1 addition & 1 deletion src/biogeophys/WaterFluxType.F90
Original file line number Diff line number Diff line change
Expand Up @@ -578,7 +578,7 @@ subroutine InitHistory(this, bounds)
units='mm/s', &
avgflag='A', &
long_name=this%info%lname('Urban total runoff'), &
ptr_col=this%qflx_runoff_u_col, set_nourb=spval, c2l_scale_type='urbanf', default='inactive')
ptr_col=this%qflx_runoff_u_col, set_nourb=spval, c2l_scale_type='urbanf')

this%qflx_runoff_r_col(begc:endc) = spval
call hist_addfld1d ( &
Expand Down