From 0941a7be55ad54dccacab70732779bb06f88ce87 Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Wed, 7 Oct 2026 10:42:42 -0600 Subject: [PATCH] Corrections to the conductances labeling modified: src/ionosphere/waccmx/edynamo.F90 modified: src/ionosphere/waccmx/ionosphere_interface.F90 --- src/ionosphere/waccmx/edynamo.F90 | 12 ++++++------ src/ionosphere/waccmx/ionosphere_interface.F90 | 4 ++-- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/ionosphere/waccmx/edynamo.F90 b/src/ionosphere/waccmx/edynamo.F90 index df518977f4..c0afcdf512 100644 --- a/src/ionosphere/waccmx/edynamo.F90 +++ b/src/ionosphere/waccmx/edynamo.F90 @@ -32,10 +32,10 @@ module edynamo real(r8), allocatable, dimension(:,:) :: & zigm11, & ! sigma11*cos(theta0) zigmc, & ! sigmac - zigm1, & ! for Hall conductance diagnostic (folded) - azigm1, & ! for Hall conductance diagnostic (not folded) - zigm2, & ! sigma2 - azigm2, & ! for Ped conductance diagnostic (not folded) + zigm1, & ! for Pedersen conductance diagnostic (folded) + azigm1, & ! for Pedersen conductance diagnostic (not folded) + zigm2, & ! for Hall conductance diagnostic + azigm2, & ! for Hall conductance diagnostic (not folded) zigm22, & ! sigma22/cos(theta0) rim1,rim2, & ! see description in comment below rhs, & ! right-hand side of PDE @@ -963,8 +963,8 @@ subroutine complete_integrals call outfld('EDYN_RIM1',rim1(mlon0:omlon1,j),omlon1-mlon0+1,j) call outfld('EDYN_RIM2',rim2(mlon0:omlon1,j),omlon1-mlon0+1,j) endif - call outfld('PED_CONDUCTANCE', zigm2(mlon0:omlon1,j),omlon1-mlon0+1,j) - call outfld('HALL_CONDUCTANCE',zigm1(mlon0:omlon1,j),omlon1-mlon0+1,j) + call outfld('PED_CONDUCTANCE', zigm1(mlon0:omlon1,j),omlon1-mlon0+1,j) + call outfld('HALL_CONDUCTANCE',zigm2(mlon0:omlon1,j),omlon1-mlon0+1,j) enddo if (debug.and.masterproc) then diff --git a/src/ionosphere/waccmx/ionosphere_interface.F90 b/src/ionosphere/waccmx/ionosphere_interface.F90 index b11d5f7cd5..96178732d3 100644 --- a/src/ionosphere/waccmx/ionosphere_interface.F90 +++ b/src/ionosphere/waccmx/ionosphere_interface.F90 @@ -393,8 +393,8 @@ subroutine ionosphere_init() call addfld ('Z3GMI', (/ 'lev' /), 'I', 'm', & 'Geometric height (Interfaces)', gridname='physgrid') - call addfld ('AZIGM1', horiz_only, 'I', 'S','Hall conductance before dynamo' ,gridname='gmag_grid') - call addfld ('AZIGM2', horiz_only, 'I', 'S','Pedersen conductance before dynamo' ,gridname='gmag_grid') + call addfld ('AZIGM1', horiz_only, 'I', 'S','Pedersen conductance before dynamo' ,gridname='gmag_grid') + call addfld ('AZIGM2', horiz_only, 'I', 'S','Hall conductance before dynamo' ,gridname='gmag_grid') end subroutine ionosphere_init