Changeset 3576 for trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Timestamp:

Jan 14, 2025, 4:05:38 PM (39 hours 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.GENERIC/libf/phystd/dyn1d/rcm1d.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -166 +166 @@
       LOGICAL :: moderntracdef=.false. ! JVO, YJ : modern traceur.def
 
-      character(100) :: arg ! To read command-line arguments
-
 c=======================================================================
 c INITIALISATION
 c=======================================================================
       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()