Changeset 3576 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/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.GENERIC/libf/dynphy_lonlat/phystd/newstart.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

@@ -49 +49 @@
       use geometry_mod, only: longitude,  ! longitudes (rad)
      &                         latitude,  ! latitudes (rad)                       
-     &                         cell_area ! physics grid area (m2)                        
+     &                         cell_area ! physics grid area (m2) 
+      use version_info_mod, only: print_version_info
+                       
       implicit none
 
@@ -189 +191 @@
       real fact2
 
+
+      if (command_argument_count() > 0) then ! Get the number of command-line arguments
+          call get_command_argument(1,txt) ! Read the argument given to the program
+          select case (trim(adjustl(txt)))
+              case('version')
+                  call print_version_info()
+                  stop
+              case default
+                  error stop 'The argument given to the program is '
+     &//'unknown!'
+          end select
+      endif
 
 c sortie visu pour les champs dynamiques