Changeset 3579 for trunk/LMDZ.COMMON/libf/evolution/reshape_XIOS_output.F90

Timestamp:

Jan 15, 2025, 1:50:20 PM (8 days ago)

Author:

jbclement

Message:

PEM:
Improvement of the Bash script tools in the deftank with an automatic error detection which ends the script with a message.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/reshape_XIOS_output.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/reshape_XIOS_output.F90

@@ -11 +11 @@
 !=======================================================================
 use netcdf
+use version_info_mod, only: print_version_info
 
 implicit none
@@ -23 +24 @@
 character(1)                          :: str
 character(30)                         :: name_, namevar
+character(100)                        :: arg ! To read command-line arguments
 integer                               :: xtype_var, len_, len_1, len_2, len_lat, len_lon, len_time, len_soil
 integer                               :: dimid_lon, dimid_lat, dimid_time, dimid_soil, dimid_2, numdims, numatts, numyear
 logical                               :: yes
+
+
+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
 
 do numyear = 1,2