From b7b2cffb7511021f5cf984c1e466494b495a4020 Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Tue, 31 May 2022 06:58:19 -0600 Subject: [PATCH] initialize drydep_nflds to zero modified: cesm/nuopc_cap_share/shr_drydep_mod.F90 --- cesm/nuopc_cap_share/shr_drydep_mod.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/cesm/nuopc_cap_share/shr_drydep_mod.F90 b/cesm/nuopc_cap_share/shr_drydep_mod.F90 index 561c14d1c..ae67df4f9 100644 --- a/cesm/nuopc_cap_share/shr_drydep_mod.F90 +++ b/cesm/nuopc_cap_share/shr_drydep_mod.F90 @@ -296,6 +296,8 @@ subroutine shr_drydep_readnl(NLFilename, drydep_nflds) call shr_mpi_bcast( drydep_list, mpicom ) call shr_mpi_bcast( dep_data_file, mpicom ) + drydep_nflds = 0 + do i=1,maxspc if(len_trim(drydep_list(i)) > 0) then drydep_nflds=drydep_nflds+1