From f21145ae68dce2284139f8849a00d978dfc8e643 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Thu, 18 Jan 2024 19:50:30 -0500 Subject: [PATCH] change associated to size for wgrs in atmosphere.F90 --- driver/fvGFS/atmosphere.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/driver/fvGFS/atmosphere.F90 b/driver/fvGFS/atmosphere.F90 index dcd43fb52..7eb2c2af2 100644 --- a/driver/fvGFS/atmosphere.F90 +++ b/driver/fvGFS/atmosphere.F90 @@ -2113,7 +2113,7 @@ subroutine atmos_phys_driver_statein (IPD_Data, Atm_block,flip_vc) IPD_Data(nb)%Statein%tgrs(ix,k) = _DBL_(_RL_(Atm(mygrid)%pt(i,j,k1))) IPD_Data(nb)%Statein%ugrs(ix,k) = _DBL_(_RL_(Atm(mygrid)%ua(i,j,k1))) IPD_Data(nb)%Statein%vgrs(ix,k) = _DBL_(_RL_(Atm(mygrid)%va(i,j,k1))) - if(associated(IPD_Data(nb)%Statein%wgrs) .and. .not. Atm(mygrid)%flagstruct%hydrostatic) then + if(size(IPD_Data(nb)%Statein%wgrs) > 0 .and. .not. Atm(mygrid)%flagstruct%hydrostatic) then IPD_Data(nb)%Statein%wgrs(ix,k) = _DBL_(_RL_(Atm(mygrid)%w(i,j,k1))) endif IPD_Data(nb)%Statein%vvl(ix,k) = _DBL_(_RL_(Atm(mygrid)%omga(i,j,k1)))