Skip to content

Add prate_max and other related precip variables to MPAS output #151

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Jeff-Duda wants to merge 11 commits into
base: gsl/develop
Choose a base branch
from
+158 −18
Open

Add prate_max and other related precip variables to MPAS output #151

Show file tree
Hide file tree
Changes from 6 commits
Commits
Show all changes
11 commits
Select commit Hold shift + click to select a range
958210a
Add 5 diagnostics variables to output. All are time-maxima (since las…
Jeff-Duda Jul 14, 2025
c8e3e3d
Fix to correct 1-/5-/10-minute average prate calculation.
Jeff-Duda Jul 18, 2025
6a09de4
Merge branch 'gsl/develop' into prate_max
Jeff-Duda Jul 18, 2025
2d1b7d4
Fix error in character string length in warning message.
Jeff-Duda Jul 25, 2025
fefdcba
Merge branch 'ufs-community:gsl/develop' into prate_max
Jeff-Duda Jul 30, 2025
976a44a
Merge branch 'prate_max' of github.com:Jeff-Duda/MPAS-Model into prat…
Jeff-Duda Jul 30, 2025
da0243e
Merge branch 'gsl/develop' into prate_max
clark-evans Sep 30, 2025
b2189ad
Requested changes to code to contract loopaple code.
Jeff-Duda Sep 30, 2025
1b132f3
Merge branch 'prate_max' of github.com:Jeff-Duda/MPAS-Model into prat…
Jeff-Duda Sep 30, 2025
cb5a1a6
Add IF statements to control when maximum precipitation rate calculat…
Jeff-Duda Nov 6, 2025
def3905
Corrected bug for sub-hourly max prate calculation
Jeff-Duda Dec 16, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
23 changes: 23 additions & 0 deletions src/core_atmosphere/Registry.xml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -672,6 +672,7 @@
<var name="max_hail_diameter_column"/>
<var name="max_hail_diameter_column_acc"/>
<var name="refl10cm_max"/>
<var name="refl10cm_compref_max"/>
<var name="i_rainnc"/>
<var name="rainncv"/>
<var name="rainnc"/>
Expand Down Expand Up @@ -1132,13 +1133,15 @@
<var name="swupt"/>
<var name="rainc"/>
<var name="rainnc"/>
<var name="prate_max"/>
<var name="vcpool"/>
<var name="refl10cm"/>
<var name="max_hail_diameter_sfc"/>
<var name="max_hail_diameter_sfc_acc"/>
<var name="max_hail_diameter_column"/>
<var name="max_hail_diameter_column_acc"/>
<var name="refl10cm_max"/>
<var name="refl10cm_compref_max"/>
<var name="refl10cm_1km"/>
<var name="refl10cm_1km_max"/>
<var name="precipw"/>
Expand Down Expand Up @@ -3062,6 +3065,10 @@
description="10 cm maximum radar reflectivity"
packages="mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="refl10cm_compref_max" type="real" dimensions="nCells Time" units="dBZ"
description="maximum composite 10 cm radar reflectivity since last output time"
packages="mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="refl10cm_1km" type="real" dimensions="nCells Time" units="dBZ"
description="diagnosed 10 cm radar reflectivity at 1 km AGL"
packages="mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>
Expand Down Expand Up @@ -3094,6 +3101,18 @@
description="accumulated total grid-scale precipitation"
packages="mp_kessler_in;mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="ave_prate_1min" type="real" dimensions="nCells Time" units="mm s^{-1}"
description="maximum 1-minute precipitation rate since last output time"
packages="mp_kessler_in;mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="ave_prate_5min" type="real" dimensions="nCells Time" units="mm s^{-1}"
description="maximum 5-minute precipitation rate since last output time"
packages="mp_kessler_in;mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="ave_prate_10min" type="real" dimensions="nCells Time" units="mm s^{-1}"
description="maximum 10-minute precipitation rate since last output time"
packages="mp_kessler_in;mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="frainnc" type="real" dimensions="nCells Time" units="mm"
description="accumulated total grid-scale freezing rain"
packages="mp_tempo_in"/>
Expand All @@ -3106,6 +3125,10 @@
description="accumulated grid-scale precipitation of graupel"
packages="mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="prate_max" type="real" dimensions="nCells Time" units="mm s^{-1}"
description="maximum instantaneous precipitation rate since last output time"
packages="mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>

<var name="rainprod" type="real" dimensions="nVertLevels nCells Time" units="s^{-1}"
description="rain production rate"
packages="mp_thompson_in;mp_thompson_aers_in;mp_wsm6_in;mp_nssl2m_in;mp_tempo_in"/>
Expand Down
24 changes: 22 additions & 2 deletions src/core_atmosphere/mpas_atm_core.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -980,13 +980,33 @@ subroutine atm_reset_diagnostics(diag_physics)

type (mpas_pool_type), pointer :: diag_physics

real (kind=RKIND), dimension(:), pointer :: refl10cm_1km_max, max_hail_diameter_sfc_acc, &
max_hail_diameter_column_acc
real (kind=RKIND), dimension(:), pointer :: refl10cm_1km_max, max_hail_diameter_sfc_acc, prate_max, &
refl10cm_compref_max, ave_prate_1min, ave_prate_5min, ave_prate_10min, max_hail_diameter_column_acc

#ifdef DO_PHYSICS
call mpas_pool_get_array(diag_physics, 'prate_max', prate_max)
call mpas_pool_get_array(diag_physics, 'refl10cm_1km_max', refl10cm_1km_max)
call mpas_pool_get_array(diag_physics, 'refl10cm_compref_max', refl10cm_compref_max)
call mpas_pool_get_array(diag_physics, 'ave_prate_1min', ave_prate_1min)
call mpas_pool_get_array(diag_physics, 'ave_prate_5min', ave_prate_5min)
call mpas_pool_get_array(diag_physics, 'ave_prate_10min', ave_prate_10min)
call mpas_pool_get_array(diag_physics, 'max_hail_diameter_sfc_acc', max_hail_diameter_sfc_acc)
call mpas_pool_get_array(diag_physics, 'max_hail_diameter_column_acc', max_hail_diameter_column_acc)
if(associated(prate_max)) then
prate_max(:) = 0.
endif
if(associated(refl10cm_compref_max)) then
refl10cm_compref_max(:) = -35.
endif
if(associated(ave_prate_1min)) then
ave_prate_1min(:) = 0.
endif
if(associated(ave_prate_5min)) then
ave_prate_5min(:) = 0.
endif
if(associated(ave_prate_10min)) then
ave_prate_10min(:) = 0.
endif
if(associated(refl10cm_1km_max)) then
refl10cm_1km_max(:) = 0.
endif
Expand Down
108 changes: 95 additions & 13 deletions src/core_atmosphere/physics/mpas_atmphys_driver_microphysics.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -136,6 +136,7 @@ subroutine allocate_microphysics(configs)
!surface precipitation:
if(.not.allocated(rainnc_p) ) allocate(rainnc_p(ims:ime,jms:jme) )
if(.not.allocated(rainncv_p)) allocate(rainncv_p(ims:ime,jms:jme))
if(.not.allocated(prate_p) ) allocate(prate_p(ims:ime,jms:jme) )

microp_select: select case(trim(microp_scheme))
case ("mp_thompson","mp_thompson_aerosols","mp_wsm6")
Expand Down Expand Up @@ -212,6 +213,7 @@ subroutine allocate_microphysics(configs)
if(.not.allocated(nr_p) ) allocate(nr_p(ims:ime,kms:kme,jms:jme))
if(.not.allocated(refl10cm_p) ) allocate(refl10cm_p(ims:ime,kms:kme,jms:jme) )
if(.not.allocated(refl10cm_1km_p) ) allocate(refl10cm_1km_p(ims:ime,jms:jme) )
if(.not.allocated(refl10cm_max_p)) allocate(refl10cm_max_p(ims:ime,jms:jme) )
if(.not.allocated(frainnc_p) ) allocate(frainnc_p(ims:ime,jms:jme) )
if(.not.allocated(max_hail_diameter_sfc_p) ) allocate(max_hail_diameter_sfc_p(ims:ime,jms:jme) )
if(.not.allocated(max_hail_diameter_column_p) ) allocate(max_hail_diameter_column_p(ims:ime,jms:jme) )
Expand Down Expand Up @@ -301,6 +303,7 @@ subroutine deallocate_microphysics(configs)
!surface precipitation:
if(allocated(rainnc_p) ) deallocate(rainnc_p )
if(allocated(rainncv_p)) deallocate(rainncv_p)
if(allocated(prate_p)) deallocate(prate_p)

microp_select: select case(trim(microp_scheme))
case ("mp_thompson","mp_thompson_aerosols","mp_wsm6")
Expand Down Expand Up @@ -377,6 +380,7 @@ subroutine deallocate_microphysics(configs)
if(allocated(nr_p) ) deallocate(nr_p )
if(allocated(refl10cm_p) ) deallocate(refl10cm_p )
if(allocated(refl10cm_1km_p)) deallocate(refl10cm_1km_p)
if(allocated(refl10cm_max_p)) deallocate(refl10cm_max_p)
if(allocated(frainnc_p) ) deallocate(frainnc_p)
if(allocated(max_hail_diameter_sfc_p) ) deallocate(max_hail_diameter_sfc_p)
if(allocated(max_hail_diameter_column_p) ) deallocate(max_hail_diameter_column_p)
Expand Down Expand Up @@ -837,7 +841,9 @@ subroutine driver_microphysics(configs,mesh,state,time_lev,diag,diag_physics,ten

!ensure that we only call compute_radar_reflectivity() if we are using an MPS that supports
!the computation of simulated radar reflectivity:
if (l_diags) then
!Compute reflectivity at all time steps for supported MP schemes rather than just at history intervals
!Only computing reflectivity occasionally leads to bad looking time-maximum reflectivity values
! if (l_diags) then
if(trim(microp_scheme) == "mp_wsm6" .or. &
trim(microp_scheme) == "mp_thompson" .or. &
trim(microp_scheme) == "mp_thompson_aerosols" .or. &
Expand All @@ -854,12 +860,12 @@ subroutine driver_microphysics(configs,mesh,state,time_lev,diag,diag_physics,ten
!over ice otherwise.
call compute_relhum(diag,its,ite)

end if
! end if

if (do_diag_dbz_flag) then
if(trim(microp_scheme) == "mp_tempo" .or. &
trim(microp_scheme) == "mp_nssl2m" ) then
call mpas_log_write('Computing hourly max reflectivity')
! call mpas_log_write('Computing hourly max reflectivity')
call compute_hourly_max_radar_reflectivity(configs,diag_physics,its,ite)
else
call mpas_log_write('*** NOTICE: NOT computing hourly max simulated radar reflectivity')
Expand Down Expand Up @@ -925,6 +931,7 @@ subroutine precip_from_MPAS(configs,diag_physics,its,ite)
do i = its, ite
rainncv_p(i,j) = 0._RKIND
rainnc_p(i,j) = 0._RKIND
prate_p(i,j) = 0._RKIND
enddo
enddo

Expand Down Expand Up @@ -1009,12 +1016,20 @@ subroutine precip_to_MPAS(configs,diag_physics,its,ite)

real(kind=RKIND),pointer:: config_bucket_rainnc
real(kind=RKIND),dimension(:),pointer:: precipw
real(kind=RKIND),dimension(:),pointer:: prate_max
real(kind=RKIND),dimension(:),pointer:: graupelnc,rainnc,snownc
real(kind=RKIND),dimension(:),pointer:: graupelncv,rainncv,snowncv,sr
real(kind=RKIND),dimension(:),pointer:: frainnc
real(kind=RKIND),dimension(:),pointer:: ave_prate_1min,ave_prate_5min,ave_prate_10min
real(kind=RKIND),dimension(:,:),allocatable,save:: rolling_precip_1min,rolling_precip_5min,rolling_precip_10min

!local variables and arrays:
integer:: i,j,k
character(len=16) :: desc
integer:: i,j,k,z
integer :: n_sub_windows
integer, dimension(5) :: sub_limit, sub_window_len
logical, dimension(5), save :: init_rolling_precip_array = .false.
real(kind=RKIND), dimension(5) :: n_dt_sub, sub_window_time
real(kind=RKIND):: rho_a

!-----------------------------------------------------------------------------------------------------------------
Expand All @@ -1028,10 +1043,49 @@ subroutine precip_to_MPAS(configs,diag_physics,its,ite)
call mpas_pool_get_array(diag_physics,'graupelnc' ,graupelnc )
call mpas_pool_get_array(diag_physics,'graupelncv',graupelncv)
call mpas_pool_get_array(diag_physics,'rainnc' ,rainnc )
call mpas_pool_get_array(diag_physics,'prate_max' ,prate_max )
call mpas_pool_get_array(diag_physics,'rainncv' ,rainncv )
call mpas_pool_get_array(diag_physics,'snownc' ,snownc )
call mpas_pool_get_array(diag_physics,'snowncv' ,snowncv )
call mpas_pool_get_array(diag_physics,'sr' ,sr )
call mpas_pool_get_array(diag_physics,'ave_prate_1min',ave_prate_1min)
call mpas_pool_get_array(diag_physics,'ave_prate_5min',ave_prate_5min)
call mpas_pool_get_array(diag_physics,'ave_prate_10min',ave_prate_10min)

n_sub_windows = 3
sub_window_len(:n_sub_windows) = 60*(/1,5,10/) ! min -> sec
do z = 1,n_sub_windows
n_dt_sub(z) = sub_window_len(z)/dt_microp
! Account for time steps that do not divide evenly into 1, 5, or 10 minutes
if (abs(fraction(n_dt_sub(z))) .gt. 1e-6) then
sub_limit(z) = nint(n_dt_sub(z)) + 1
sub_window_time(z) = dt_microp*(sub_limit(z)-1)
else
sub_limit(z) = sub_window_len(z)/dt_microp + 1
sub_window_time(z) = sub_window_len(z)
end if
if (sub_limit(z) == 1) then
write(desc,'(I3)') int(sub_window_len(z)/60.)
call mpas_log_write('WARNING: model time step is coarser than '//trim(adjustl(desc))//' minute(s) and thus the ave_prate_[1-/5-/10-]min array will be either all zeros or meaningless.')
init_rolling_precip_array(z) = .true.
end if
end do
! if all is okay, allocate rolling precip arrays just once and never again
Copy link
Collaborator

@AndersJensen-NOAA AndersJensen-NOAA Sep 24, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

For lines 1074-1088, instead of repeating code, can this be in a loop?

Copy link
Author

@Jeff-Duda Jeff-Duda Sep 29, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

@AndersJensen-NOAA I can do this, but it will require a different array to hold all precip intervals in one array, which will render the check on line ~1068 moot; the code will not be able to distinguish whether the model time step is too coarse for just the 1-minute precip (but okay for 5- and 10-minute rolling precip) or too coarse for 1- and 5-minute precip but okay for 10-minute precip. I don't know how critical this warning actually is, though, as it is mostly self-explanatory and easy to account for.

if (.not. init_rolling_precip_array(1)) then
allocate(rolling_precip_1min(sub_limit(1),its:ite))
rolling_precip_1min = 0._RKIND
init_rolling_precip_array(1) = .true.
end if
if (.not. init_rolling_precip_array(2)) then
allocate(rolling_precip_5min(sub_limit(2),its:ite))
rolling_precip_5min = 0._RKIND
init_rolling_precip_array(2) = .true.
end if
if (.not. init_rolling_precip_array(3)) then
allocate(rolling_precip_10min(sub_limit(3),its:ite))
rolling_precip_10min = 0._RKIND
init_rolling_precip_array(3) = .true.
end if

do i = its,ite
precipw(i) = 0._RKIND
Expand All @@ -1049,15 +1103,42 @@ subroutine precip_to_MPAS(configs,diag_physics,its,ite)

!time-step precipitation:
rainncv(i) = rainnc_p(i,j)
prate_max(i) = max(rainnc_p(i,j)/dt_microp,prate_max(i))

!accumulated precipitation:
rainnc(i) = rainnc(i) + rainncv(i)

if(l_acrain .and. config_bucket_rainnc.gt.0._RKIND .and. &
rainnc(i).gt.config_bucket_rainnc) then
i_rainnc(i) = i_rainnc(i) + 1
rainnc(i) = rainnc(i) - config_bucket_rainnc
endif
! update rolling precipitation totals for sub-history-interval average-precipitation-rate calculation
! 1-minute prate
IF (allocated(rolling_precip_1min)) THEN
DO k = sub_limit(1)-1,1,-1
rolling_precip_1min(k+1,:) = rolling_precip_1min(k,:)
END DO
rolling_precip_1min(1,i) = rainnc(i)
ave_prate_1min(i) = max((rolling_precip_1min(1,i) - rolling_precip_1min(sub_limit(1),i))/sub_window_time(1),ave_prate_1min(i))
END IF
! 5-minute prate
IF (allocated(rolling_precip_5min)) THEN
DO k = sub_limit(2)-1,1,-1
rolling_precip_5min(k+1,:) = rolling_precip_5min(k,:)
END DO
rolling_precip_5min(1,i) = rainnc(i)
ave_prate_5min(i) = max((rolling_precip_5min(1,i) - rolling_precip_5min(sub_limit(2),i))/sub_window_time(2),ave_prate_5min(i))
END IF
! 10-minute prate
IF (allocated(rolling_precip_10min)) THEN
DO k = sub_limit(3)-1,1,-1
Copy link
Collaborator

@AndersJensen-NOAA AndersJensen-NOAA Sep 24, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Is it possible to check all allocations at once and then combine these since sub_limit(1) < sub_limit(2) < sub_limit(3)?

DO k = sub_limit(3)-1,1-1
rolling_precip_10min(k+1,:) = rolling_precip_10min(k,:)
IF k <= sub_limit(2) rolling_precip_5min(k+1,:) = rolling_precip_5min(k,:)
IF k <= sub_limit(1) rolling_precip_1min(k+1,:) = rolling_precip_1min(k,:)

rolling_precip_10min(k+1,:) = rolling_precip_10min(k,:)
END DO
rolling_precip_10min(1,i) = rainnc(i)
ave_prate_10min(i) = max((rolling_precip_10min(1,i) - rolling_precip_10min(sub_limit(3),i))/sub_window_time(3),ave_prate_10min(i))
END IF

if(l_acrain .and. config_bucket_rainnc.gt.0._RKIND .and. &
rainnc(i).gt.config_bucket_rainnc) then
i_rainnc(i) = i_rainnc(i) + 1
rainnc(i) = rainnc(i) - config_bucket_rainnc
endif

enddo
enddo
Expand Down Expand Up @@ -1173,6 +1254,7 @@ subroutine compute_radar_reflectivity(configs,diag_physics,its,ite)
enddo

refl10cm_max(i) = maxval(dBZ1d(:))
refl10cm_max_p(i,j) = refl10cm_max(i)
w1 = (zp(kp+1)-1000.)/(zp(kp+1)-zp(kp))
w2 = 1.0 - w1
refl10cm_1km(i) = w1*dBZ1d(kp) + w2*dBZ1d(kp+1)
Expand All @@ -1189,7 +1271,7 @@ subroutine compute_radar_reflectivity(configs,diag_physics,its,ite)
! Reflectivity is already computed in 3D in the refl10cm_p array, so just read out the values
if(.not.allocated(dBz1d)) allocate(dBZ1d(kts:kte))
if(.not.allocated(zp) ) allocate(zp(kts:kte) )
call mpas_log_write("Computing refl10cm_1km_max")
!call mpas_log_write("Computing refl10cm_1km_max")
!call mpas_log_write("max before = $r dbz", realArgs=(/maxval(refl10cm_1km_max)/))
do j = jts,jte ! Assuming here that jts == jte (2D arrays)
do i = its,ite
Expand All @@ -1206,6 +1288,7 @@ subroutine compute_radar_reflectivity(configs,diag_physics,its,ite)
enddo

refl10cm_max(i) = maxval(dBZ1d(:))
refl10cm_max_p(i,j) = refl10cm_max(i)
w1 = (zp(kp+1)-1000.)/(zp(kp+1)-zp(kp))
w2 = 1.0 - w1
refl10cm_1km(i) = w1*dBZ1d(kp) + w2*dBZ1d(kp+1)
Expand Down Expand Up @@ -1339,7 +1422,7 @@ subroutine compute_hourly_max_radar_reflectivity(configs,diag_physics,its,ite)
!local pointers:
character(len=StrKIND),pointer:: microp_scheme
character(len=StrKIND),pointer:: nssl_moments
real(kind=RKIND),dimension(:),pointer:: refl10cm_1km_max, refl10cm_1km
real(kind=RKIND),dimension(:),pointer:: refl10cm_1km_max, refl10cm_1km, refl10cm_max

!local variables and arrays:
integer:: i,j,k,kp
Expand All @@ -1351,7 +1434,7 @@ subroutine compute_hourly_max_radar_reflectivity(configs,diag_physics,its,ite)
call mpas_pool_get_config(configs,'config_microp_scheme',microp_scheme)
call mpas_pool_get_config(configs,'config_nssl_moments',nssl_moments) ! not needed?

! call mpas_pool_get_array(diag_physics,'refl10cm_max',refl10cm_max)
call mpas_pool_get_array(diag_physics,'refl10cm_max',refl10cm_max)
call mpas_pool_get_array(diag_physics,'refl10cm_1km',refl10cm_1km)
call mpas_pool_get_array(diag_physics,'refl10cm_1km_max',refl10cm_1km_max)

Expand Down Expand Up @@ -1397,7 +1480,6 @@ subroutine compute_hourly_max_radar_reflectivity(configs,diag_physics,its,ite)
do i = its,ite
refl10cm_1km_max(i) = max(refl10cm_1km_max(i),refl10cm_1km(i))
enddo

case default

end select microp_select
Expand Down
9 changes: 7 additions & 2 deletions src/core_atmosphere/physics/mpas_atmphys_interface.F
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -680,7 +680,7 @@ subroutine microphysics_from_MPAS(configs,mesh,state,time_lev,diag,diag_physics,
real(kind=RKIND),dimension(:,:),pointer :: volg,volh,zrw,zgw,zhw
real(kind=RKIND),dimension(:,:),pointer :: rainprod,evapprod
real(kind=RKIND),dimension(:,:),pointer :: refl10cm
real(kind=RKIND),dimension(:) ,pointer :: max_hail_diameter_sfc, max_hail_diameter_column
real(kind=RKIND),dimension(:) ,pointer :: max_hail_diameter_sfc, max_hail_diameter_column,refl10cm_compref_max
real(kind=RKIND),dimension(:,:),pointer :: re_cloud,re_ice,re_snow
real(kind=RKIND),dimension(:,:),pointer :: qc_bl, cldfrac_bl
real(kind=RKIND),dimension(:,:),pointer :: rthmpten,rqvmpten,rqcmpten,rqrmpten,rqimpten,rqsmpten,rqgmpten
Expand Down Expand Up @@ -863,10 +863,12 @@ subroutine microphysics_from_MPAS(configs,mesh,state,time_lev,diag,diag_physics,
call mpas_pool_get_dimension(state,'index_nr',index_nr)
call mpas_pool_get_array(diag_physics,'max_hail_diameter_sfc' ,max_hail_diameter_sfc)
call mpas_pool_get_array(diag_physics,'max_hail_diameter_column' ,max_hail_diameter_column)
call mpas_pool_get_array(diag_physics,'refl10cm_compref_max',refl10cm_compref_max)
ni => scalars(index_ni,:,:)
nr => scalars(index_nr,:,:)
do j = jts,jte
do i = its,ite
refl10cm_max_p(i,j) = refl10cm_compref_max(i)
max_hail_diameter_sfc_p(i,j) = max_hail_diameter_sfc(i)
max_hail_diameter_column_p(i,j) = max_hail_diameter_column(i)
enddo
Expand Down Expand Up @@ -1171,7 +1173,7 @@ subroutine microphysics_to_MPAS(configs,mesh,state,time_lev,diag,diag_physics,te
real(kind=RKIND),dimension(:,:),pointer :: nc,ni,nr,nifa,nwfa
real(kind=RKIND),dimension(:,:),pointer :: ns,ng,nh,nccn
real(kind=RKIND),dimension(:,:),pointer :: volg,volh,zrw,zgw,zhw
real(kind=RKIND),dimension(:) ,pointer :: max_hail_diameter_sfc, max_hail_diameter_column
real(kind=RKIND),dimension(:) ,pointer :: max_hail_diameter_sfc, max_hail_diameter_column, refl10cm_compref_max, compref
real(kind=RKIND),dimension(:,:),pointer :: rainprod,evapprod,refl10cm
real(kind=RKIND),dimension(:,:),pointer :: re_cloud,re_ice,re_snow
real(kind=RKIND),dimension(:,:),pointer :: rthmpten,rqvmpten,rqcmpten,rqrmpten,rqimpten,rqsmpten,rqgmpten
Expand Down Expand Up @@ -1400,8 +1402,11 @@ subroutine microphysics_to_MPAS(configs,mesh,state,time_lev,diag,diag_physics,te

call mpas_pool_get_array(diag_physics,'max_hail_diameter_sfc' ,max_hail_diameter_sfc)
call mpas_pool_get_array(diag_physics,'max_hail_diameter_column' ,max_hail_diameter_column)
call mpas_pool_get_array(diag_physics,'refl10cm_compref_max',refl10cm_compref_max )
call mpas_pool_get_array(diag_physics,'refl10cm_max',compref )
do j = jts,jte
do i = its,ite
refl10cm_compref_max(i) = max(refl10cm_compref_max(i),compref(i))
max_hail_diameter_sfc(i) = max_hail_diameter_sfc_p(i,j)
max_hail_diameter_column(i) = max_hail_diameter_column_p(i,j)
enddo
Expand Down
Loading