Changeset 3576 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jan 14, 2025, 4:05:38 PM (5 months 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

Location:

trunk/LMDZ.GENERIC/libf

Files:

• dynphy_lonlat/phystd/newstart.F (modified) (2 diffs)
• dynphy_lonlat/phystd/start2archive.F (modified) (2 diffs)
• phystd/dyn1d/rcm1d.F (modified) (1 diff)

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

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/start2archive.F ¶

@@ -39 +39 @@
      &                          east_gwstress, west_gwstress
       use exner_hyb_m, only: exner_hyb
+      use version_info_mod, only: print_version_info
+
       implicit none
 
@@ -146 +148 @@
 c   Initialisations 
 c-----------------------------------------------------------------------
+      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
 
       CALL defrun_new(99, .TRUE. )

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()