Changeset 3576 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F

Timestamp:

Jan 14, 2025, 4:05:38 PM (2 weeks ago)

Author:

jbclement

Message:

COMMON:
Follow-up of r3574:

• Small corrections to make it work with Git;
• Addition of the functionality with the programs 'Generic newstart' and 'Generic start2archive';
• Improvements of the visualization format;
• Diplaying version control information of every sub-folder in the "trunk" instead of only the "trunk" (who can do more can do less).

JBC

File:

• trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F

@@ -82 +82 @@
 c et autres:
 c----------
-      character(100) :: arg ! To read command-line arguments
 
 c Variables pour les lectures NetCDF des fichiers "start_archive" 
@@ -215 +214 @@
 
 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()