Changeset 4491 for LMDZ6/trunk/libf/phylmdiso/cv30_routines.F90

Timestamp:

Apr 3, 2023, 10:25:44 AM (15 months ago)

Author:

crisi

Message:

Bug corrections in LMDZiso, especially for water tagging

File:

• LMDZ6/trunk/libf/phylmdiso/cv30_routines.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/cv30_routines.F90

@@ -2647 +2647 @@
      &          )
 #ifdef ISO
-    use infotrac_phy, ONLY: ntraciso=>ntiso
+    use infotrac_phy, ONLY: ntraciso=>ntiso, niso
     use isotopes_mod, ONLY: essai_convergence, iso_eau,iso_HDO,ridicule
-    use isotopes_routines_mod, ONLY: appel_stewart_vectall
+    use isotopes_routines_mod, ONLY: appel_stewart_vectall,appel_stewart_debug
 #ifdef ISOVERIF
     use isotopes_verif_mod, ONLY: errmax,errmaxrel, &
@@ -3208 +3208 @@
        enddo
 #endif
+
+        if (1.eq.0) then
         ! appel de appel_stewart_vectorise
         call appel_stewart_vectall(lwork,ncum, &
@@ -3218 +3220 @@
      &          i,inb, & ! altitude: car cas particulier en INB 
      &          na,nd,nloc,cvflag_grav,ginv,1e-16)
+
+        else !if (1.eq.0) then
+          ! truc simple sans fractionnement
+          ! juste pour debuggage
+          call appel_stewart_debug(lwork,nloc,inb,na,i, &
+                evap,water,rpprec,rr,wdtrain, &
+                xtevap,xtwater,xtp,xt,xtwdtrain)
+        endif ! if (1.eq.0) then
+
 
 #ifdef ISOVERIF