From e947ea3017667327a671adce10942ec2b31c3d3f Mon Sep 17 00:00:00 2001 From: Erik Kluzek Date: Thu, 13 Jun 2024 14:27:41 -0600 Subject: [PATCH] Explicitly allocate arrays to start at 1, since izumi_gnu seems to need that --- src/biogeochem/DustEmisBase.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/biogeochem/DustEmisBase.F90 b/src/biogeochem/DustEmisBase.F90 index dbc5729403..ef509add06 100644 --- a/src/biogeochem/DustEmisBase.F90 +++ b/src/biogeochem/DustEmisBase.F90 @@ -184,9 +184,9 @@ subroutine InitAllocate(this, bounds) allocate(this%vlc_trb_3_patch (begp:endp)) ; this%vlc_trb_3_patch (:) = nan allocate(this%vlc_trb_4_patch (begp:endp)) ; this%vlc_trb_4_patch (:) = nan - allocate (this%ovr_src_snk_mss(dst_src_nbr,ndst)) ; this%ovr_src_snk_mss (:,:) = nan - allocate (this%dmt_vwr(ndst)) ; this%dmt_vwr (:) = nan - allocate (this%stk_crc(ndst)) ; this%stk_crc (:) = nan + allocate (this%ovr_src_snk_mss(1:dst_src_nbr,1:ndst)) ; this%ovr_src_snk_mss (:,:) = nan + allocate (this%dmt_vwr(1:ndst)) ; this%dmt_vwr (:) = nan + allocate (this%stk_crc(1:ndst)) ; this%stk_crc (:) = nan end subroutine InitAllocate