Changeset 3604

Timestamp:

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

Author:

jbclement

Message:

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

Location:

trunk

Files:

• LMDZ.COMMON/libf/dyn3dpar/gcm.F (modified) (1 diff)
• LMDZ.MARS/changelog.txt (modified) (1 diff)
• LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

@@ -166 +166 @@
                   stop
               case default
-                  error stop 'The argument given to the program '
-     &//'is unknown!'
+                  error stop 'The argument given to the program is '
+     &//'unknown!'
           end select
       endif

trunk/LMDZ.MARS/changelog.txt

@@ -4764 +4764 @@
 - Albedo is now set properly in every situation given the presence of CO2/H2O ice and frost + water albedo is done solely in "physiq".
 - Small update to make the display of code version status/diff clearer.
+
+== 29/01/2025 == JBC
+Bug correction introduced in r3574: the program has to be in a fixed-form Fortran format.

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