From e3b264f10676f254a2ab2cde672b404e849f5a77 Mon Sep 17 00:00:00 2001 From: Janak Joshi Date: Wed, 26 Feb 2025 15:09:41 -0500 Subject: [PATCH] Reverted to intended 'rhod' reading --- Process_Library/GOCART2G_MieMod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Process_Library/GOCART2G_MieMod.F90 b/Process_Library/GOCART2G_MieMod.F90 index 572963d7..2ed4ef76 100644 --- a/Process_Library/GOCART2G_MieMod.F90 +++ b/Process_Library/GOCART2G_MieMod.F90 @@ -65,7 +65,7 @@ module GOCART2G_MieMod real, pointer :: pmom(:,:,:,:,:) => Null() ! (r,c,b,m,p) moments of phase function real, pointer :: gf(:,:) => Null() ! (r,b) hygroscopic growth factor real, pointer :: rhop(:,:) => Null() ! (r,b) wet particle density [kg m-3] - real, pointer :: rhod(:,:) => Null() ! (r,b) wet particle density [kg m-3] + real, pointer :: rhod(:,:) => Null() ! (r,b) dry particle density [kg m-3] real, pointer :: vol(:,:) => Null() ! (r,b) wet particle volume [m3 kg-1] real, pointer :: area(:,:) => Null() ! (r,b) wet particle cross section [m2 kg-1] real, pointer :: refr(:,:,:) => Null() ! (r,c,b) real part of refractive index @@ -291,7 +291,7 @@ type(GOCART2G_Mie) function GOCART2G_MieCreate ( MieFile, wavelengths, nmom, rc endif ! Dry particle density (will be pulled from wet particle radius) - rc = nf90_inq_varid(ncid,'rhod',ivarid) + rc = nf90_inq_varid(ncid,'rhop',ivarid) if(rc .ne. NF90_NOERR) then ! not in table, fill in dummy variable rhod_table = -999. else