Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/misc/xercnt.F

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/misc/xercnt.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/xercnt.F

@@ -16 +16 @@
 C        Just after each message is recorded, but before it is
 C        processed any further (i.e., before it is printed or
-C        a decision to abort is made), a call is made to XERCNT.
+C        a decision to abort is made), a CALL is made to XERCNT.
 C        If the user has provided his own version of XERCNT, he
 C        can then override the value of KONTROL used in processing
@@ -32 +32 @@
 C        SUBROU - the subroutine that XERMSG is being called from
 C        MESSG  - the first 20 characters of the error message.
-C        NERR   - same as in the call to XERMSG.
-C        LEVEL  - same as in the call to XERMSG.
+C        NERR   - same as in the CALL to XERMSG.
+C        LEVEL  - same as in the CALL to XERMSG.
 C        KONTRL - the current value of the control flag as set
-C                 by a call to XSETF.
+C                 by a CALL to XSETF.
 C
 C      --Output--