Index: trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F
===================================================================
--- trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F	(revision 3574)
+++ trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F	(revision 3576)
@@ -82,5 +82,4 @@
 c et autres:
 c----------
-      character(100) :: arg ! To read command-line arguments
 
 c Variables pour les lectures NetCDF des fichiers "start_archive" 
@@ -215,6 +214,6 @@
 
 if (command_argument_count() > 0) then ! Get the number of command-line arguments
-    call get_command_argument(1,arg) ! Read the argument given to the program
-    select case (trim(adjustl(arg)))
+    call get_command_argument(1,txt) ! Read the argument given to the program
+    select case (trim(adjustl(txt)))
         case('version')
             call print_version_info()
Index: trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F
===================================================================
--- trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F	(revision 3574)
+++ trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F	(revision 3576)
@@ -143,5 +143,4 @@
       integer :: nq,numvanle
       character(len=30) :: txt ! to store some text
-      character(100) :: arg ! To read command-line arguments
 
 c Netcdf