Changeset 4300

Timestamp:

Oct 19, 2022, 10:28:19 PM (2 years ago)

Author:

crisi

Message:

correction d'un bug qui empechait la compil avec -isotrac true. C'est parce que nzone est maintenant défini dans infotrac_phy et non plus dans isotrac_mod.

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• isotopes_verif_mod.F90 (modified) (1 diff)
• isotrac_routines_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/isotopes_verif_mod.F90

@@ -5 +5 @@
 MODULE isotopes_verif_mod
 !use isotopes_mod, ONLY: 
-#ifdef ISOTRAC
-   USE isotrac_mod, ONLY: nzone
-#endif
-USE infotrac_phy, ONLY: ntraciso=>ntiso, niso, itZonIso
+!#ifdef ISOTRAC
+!   USE isotrac_mod, ONLY: nzone
+!#endif
+USE infotrac_phy, ONLY: ntraciso=>ntiso, niso, itZonIso, nzone
 implicit none
 save

LMDZ6/trunk/libf/phylmdiso/isotrac_routines_mod.F90

@@ -2333 +2333 @@
         subroutine iso_verif_traceur_jbid_vect(x,n,m)
         USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
-        use isotrac_mod, only: ntraceurs_zone=>nzone
+        !use isotrac_mod, only: ntraceurs_zone=>nzone
+        USE infotrac_phy, ONLY: ntraceurs_zone=>nzone
         implicit none