Changeset 3574 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jan 13, 2025, 4:52:20 PM (2 weeks 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.GENERIC/libf/phystd/dyn1d

Files:

• kcm1d.F90 (modified) (2 diffs)
• rcm1d.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90

@@ -22 +22 @@
   use dimphy, only : init_dimphy
   use gases_h, only: ngasmx
+  use version_info_mod, only: print_version_info
 
   implicit none
@@ -109 +110 @@
   integer :: ios
   integer :: k
+
+  character(100) :: arg ! To read command-line arguments
   
   ! --------------
   ! 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
 
   pi=2.E+0*asin(1.E+0)

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

@@ -43 +43 @@
      &                  nf90_strerror,NF90_INQ_VARID, NF90_GET_VAR,
      &                  NF90_CLOSE
+      use version_info_mod, only: print_version_info
+
       implicit none
 
@@ -164 +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)))
+              case('version')
+                  call print_version_info()
+                  stop
+              case default
+                  error stop 'The argument given to the program is '
+     &//'unknown!'
+          end select
+      endif
+
 ! check if 'rcm1d.def' file is around 
       open(90,file='rcm1d.def',status='old',form='formatted',