Changes in src/readcommand.f90 [c04b739:4c64400] in flexpart.git

File:

• src/readcommand.f90 (modified) (1 diff)

src/readcommand.f90

@@ -170 +170 @@
     if (index(line,'LDIRECT') .eq. 0) then
       old = .false.
-      write(*,*) 'COMMAND in old short format, please update to namelist format'
+      if (lroot) write(*,*) 'COMMAND in old short format, &
+           &please update to namelist format'
     else
       old = .true.
-      write(*,*) 'COMMAND in old long format, please update to namelist format'
+      if (lroot) write(*,*) 'COMMAND in old long format, &
+           &please update to namelist format'
     endif
     rewind(unitcommand)