Changeset 3836 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F
- Timestamp:
- Jul 7, 2025, 2:46:43 PM (3 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F
r3621 r3836 50 50 & latitude, ! latitudes (rad) 51 51 & cell_area ! physics grid area (m2) 52 use version_info_mod, only: print_version_info52 use parse_args_mod, only: parse_args 53 53 54 54 implicit none … … 192 192 193 193 194 if (command_argument_count() > 0) then ! Get the number of command-line arguments 195 call get_command_argument(1,txt) ! Read the argument given to the program 196 select case (trim(adjustl(txt))) 197 case('version') 198 call print_version_info() 199 stop 200 case default 201 error stop 'The argument given to the program is ' 202 &//'unknown!' 203 end select 204 endif 194 ! Parse command-line options 195 call parse_args() 205 196 206 197 c sortie visu pour les champs dynamiques
Note: See TracChangeset
for help on using the changeset viewer.