From 6e853304e47fa472cfe828cf729b5fd252ac7439 Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Mon, 23 Sep 2024 17:48:07 -0600 Subject: [PATCH] fixed bug in v component of ion drifts mappings; limit message to masterproc modified: src/ionosphere/waccmx/edyn3D_driver.F90 modified: src/physics/waccmx/ion_electron_temp.F90 --- src/ionosphere/waccmx/edyn3D_driver.F90 | 2 +- src/physics/waccmx/ion_electron_temp.F90 | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/ionosphere/waccmx/edyn3D_driver.F90 b/src/ionosphere/waccmx/edyn3D_driver.F90 index a954d80629..995210600d 100644 --- a/src/ionosphere/waccmx/edyn3D_driver.F90 +++ b/src/ionosphere/waccmx/edyn3D_driver.F90 @@ -450,7 +450,7 @@ subroutine edyn3D_driver_timestep( nphyscol, nphyslev, physalt, tn, sigPed, sigH fline_s1(i,j,isn)%ve2*fline_s1(i,j,isn)%e2(2,k) IonU_s1%flines(i,j,isn)%fld(k) = ui_s1(i,ncnt2) - IonV_s1%flines(i,j,isn)%fld(k) = ui_s1(i,ncnt2) + IonV_s1%flines(i,j,isn)%fld(k) = vi_s1(i,ncnt2) end do diff --git a/src/physics/waccmx/ion_electron_temp.F90 b/src/physics/waccmx/ion_electron_temp.F90 index e272b9aaa0..d754c0afa4 100644 --- a/src/physics/waccmx/ion_electron_temp.F90 +++ b/src/physics/waccmx/ion_electron_temp.F90 @@ -324,8 +324,10 @@ subroutine ion_electron_temp_inidat(ncid_ini, pbuf2d) deallocate(tI) endif if (index_te>0 .and. index_ti>0 .and. .not.initialized_TiTe) then - write(iulog,*) 'ion_electron_temp_inidat: Not able to read temperatures from IC file.' & - //' Will set ion and electron temperatures to neutral temperature (state%t) on initial timestep.' + if (masterproc) then + write(iulog,*) 'ion_electron_temp_inidat: Not able to read temperatures from IC file.' & + //' Will set ion and electron temperatures to neutral temperature (state%t) on initial timestep.' + end if endif end subroutine ion_electron_temp_inidat