Skip to content

Commit 1307210

Browse files
committed
fix hail tendency changes from reviewer suggestions
1 parent e7a1bc3 commit 1307210

1 file changed

Lines changed: 4 additions & 2 deletions

File tree

physics/MP/NSSL/mp_nssl.F90

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -291,7 +291,7 @@ subroutine mp_nssl_run(ncol, nlev, con_g, con_rd, mpirank, &
291291
real(kind_phys), intent( out) :: ten_chw(:,:)
292292
real(kind_phys), intent( out), optional :: ten_chl(:,:)
293293
real(kind_phys), intent( out) :: ten_vh(:,:)
294-
real(kind_phys), intent( out) :: ten_vhl(:,:)
294+
real(kind_phys), intent( out), optional :: ten_vhl(:,:)
295295
real(kind_phys), intent( out), optional :: ten_zrw(:,:)
296296
real(kind_phys), intent( out), optional :: ten_zhw(:,:)
297297
real(kind_phys), intent( out), optional :: ten_zhl(:,:)
@@ -405,7 +405,9 @@ subroutine mp_nssl_run(ncol, nlev, con_g, con_rd, mpirank, &
405405
if ( nssl_3moment ) then
406406
ten_zrw = 0.0
407407
ten_zhw = 0.0
408-
ten_zhl = 0.0
408+
if (nssl_hail_on) then
409+
ten_zhl = 0.0
410+
end if
409411
end if
410412

411413
new_t = tgrs

0 commit comments

Comments
 (0)