fixed bug in v component of ion drifts mappings; limit message to mas…

…terproc modified: src/ionosphere/waccmx/edyn3D_driver.F90 modified: src/physics/waccmx/ion_electron_temp.F90
fvitt · Sep 23, 2024 · 6e85330 · 6e85330
1 parent 8954a47
commit 6e85330
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git 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
@@ -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