Changeset 3604 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F

Timestamp:

Jan 29, 2025, 10:04:35 AM (36 hours ago)

Author:

jbclement

Message:

Mars PCM:
Bug correction introduced in r3574: the program has to be in a fixed-form Fortran format.
JBC

File:

• trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F (modified) (1 diff)

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

@@ -213 +213 @@
 
 
-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
+      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