Changeset 5746 for LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90

Timestamp:

Jul 1, 2025, 5:48:46 PM (4 weeks ago)

Author:

dcugnet

Message:

Remove the "fmsg" function.

File:

• LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/isotrac_mod.F90

@@ -148 +148 @@
    USE isotopes_mod, ONLY: iso_eau, ntracisoOR, initialisation_iso
    USE dimphy,       ONLY: klon, klev
-   USE  strings_mod, ONLY: int2str, strStack, strTail, strHead, strIdx, fmsg
+   USE  strings_mod, ONLY: int2str, strStack, strTail, strHead, strIdx
 
    IMPLICIT NONE
@@ -157 +157 @@
    INTEGER :: nzone_opt
 
-   IF(fmsg("traceurs_init 18: isotrac ne marche que si on met l'eau comme isotope", 'iso_traceurs_init', iso_eau==0)) STOP
+   CALL msg("traceurs_init 18: isotrac ne marche que si on met l'eau comme isotope", 'iso_traceurs_init', iso_eau==0)
+   IF(lerr) STOP
 
    !--- Initialize