Changeset 3574 for trunk/LMDZ.MARS/libf

Timestamp:

Jan 13, 2025, 4:52:20 PM (5 months ago)

Author:

jbclement

Message:

COMMON:
The compilation generates a Fortran subroutine to track compilation and version (SVN or Git) details through the executable file. Put the argument 'version' as an option when executing the code to display these information and create a file "version_diff.txt" containing the diff result.
It can work with every program but it has been implemented only for: 'gcm', 'parallel gcm', 'pem', '1D Mars PCM', 'Mars newstart', 'Mars start2archive' and '1D Generic PCM'.
JBC

Location:

trunk/LMDZ.MARS/libf

Files:

• dynphy_lonlat/phymars/newstart.F (modified) (3 diffs)
• dynphy_lonlat/phymars/start2archive.F (modified) (4 diffs)
• phymars/dyn1d/testphys1d.F90 (modified) (3 diffs)

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

@@ -61 +61 @@
      &             ini_paleoclimate_h, end_paleoclimate_h
       use subslope_mola_mod, ONLY: subslope_mola
+      use version_info_mod, only: print_version_info
       
       implicit none
@@ -81 +82 @@
 c et autres:
 c----------
+      character(100) :: arg ! To read command-line arguments
 
 c Variables pour les lectures NetCDF des fichiers "start_archive" 
@@ -211 +213 @@
 
 
+
+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)))
+        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.MARS/libf/dynphy_lonlat/phymars/start2archive.F ¶

@@ -41 +41 @@
       USE surfdat_h, ONLY: phisfi, albedodat, z0, z0_default,
      &    zmea, zstd, zsig, zgam, zthe, hmons, summit, base
+      use version_info_mod, only: print_version_info
+
       implicit none
 
@@ -141 +143 @@
       integer :: nq,numvanle
       character(len=30) :: txt ! to store some text
+      character(100) :: arg ! To read command-line arguments
 
 c Netcdf
@@ -150 +153 @@
 C here we assume and check that if there is an argument #1 then
 C it should be --add-sso to signal adding SSO fileds to start_archive.nc
-
       CALL get_command_argument(1,txt,j,ierr)
       ! will return ierr==0 if there is an argument #1 to command line
@@ -158 +160 @@
           add_sso_fields=.true.
           write(*,*) "SSO fields will be included in start_archive"
+        ELSE IF (trim(txt) == 'version') then
+            call print_version_info()
+            stop
         ELSE
           write(*,*) "start2archive error: unexpected command line "//

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90 ¶

@@ -21 +21 @@
 use mod_const_mpi,       only: init_const_mpi
 use parallel_lmdz,       only: init_parallel
+use version_info_mod,    only: print_version_info
 
 implicit none
@@ -77 +78 @@
 real, dimension(:,:,:), allocatable :: q             ! tracer mixing ratio (e.g. kg/kg)
 real, dimension(1)                  :: wstar = 0.    ! Thermals vertical velocity
+character(100)                      :: arg           ! To read command-line arguments
 
 ! Physical and dynamical tendencies (e.g. m.s-2, K/s, Pa/s)
@@ -100 +102 @@
 ! INITIALISATION
 !=======================================================================
+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)))
+        case('version')
+            call print_version_info()
+            stop
+        case default
+            error stop 'The argument given to the program is unknown!'
+    end select
+endif
+
 #ifdef CPP_XIOS
     call init_const_mpi