diff --git a/src/inital.F90 b/src/inital.F90 index dec1ff5cc229e9b481ce380481e374ca0e83bbd0..3d91595284d925d7c59516cb74145920bd9410db 100644 --- a/src/inital.F90 +++ b/src/inital.F90 @@ -13,10 +13,9 @@ SUBROUTINE inital implicit none - real :: start_init, end_init, time_estimation - CALL set_updatetlevel(1) + IF (my_id .EQ. 0) WRITE(*,*) 'Evaluate kernels' CALL evaluate_kernels !!!!!! Set the moments arrays Nepj, Nipj !!!!!!