Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/misc

Timestamp:

Aug 3, 2024, 2:56:58 PM (4 months ago)

Author:

abarral

Message:

Put .h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/misc

Files:

• lmdz_assert.f90 (modified) (5 diffs)
• lmdz_libmath_pch.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_assert.f90

@@ -16 +16 @@
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
-      print *, 'program terminated by assert1'
+      PRINT *, 'program terminated by assert1'
       stop 1
     end if
@@ -27 +27 @@
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
-      print *, 'program terminated by assert2'
+      PRINT *, 'program terminated by assert2'
       stop 1
     end if
@@ -38 +38 @@
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
-      print *, 'program terminated by assert3'
+      PRINT *, 'program terminated by assert3'
       stop 1
     end if
@@ -49 +49 @@
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
-      print *, 'program terminated by assert4'
+      PRINT *, 'program terminated by assert4'
       stop 1
     end if
@@ -60 +60 @@
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
-      print *, 'program terminated by assert_v'
+      PRINT *, 'program terminated by assert_v'
       stop 1
     end if

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_libmath_pch.f90

@@ -639 +639 @@
     n = assert_eq(size(x), size(f), "pchsp_95 n")
     IF ((ibeg == 1 .OR. ibeg == 2) .AND. .NOT. present(vc_beg)) THEN
-      print *, "vc_beg required for IBEG = 1 or 2"
+      PRINT *, "vc_beg required for IBEG = 1 or 2"
       stop 1
     end if
     IF ((iend == 1 .OR. iend == 2) .AND. .NOT. present(vc_end)) THEN
-      print *, "vc_end required for IEND = 1 or 2"
+      PRINT *, "vc_end required for IEND = 1 or 2"
       stop 1
     end if