Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/isotopes_verif_mod.F90

Timestamp:

Oct 19, 2023, 4:02:57 PM (13 months ago)

Author:

idelkadi

Message:

Merged trunk changes -r4488:4726 LMDZ_ECRad branch

Location:

LMDZ6/branches/LMDZ_ECRad

Files:

• . (modified) (1 prop)
• libf/phylmdiso/isotopes_verif_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/isotopes_verif_mod.F90

@@ -2028 +2028 @@
 
           if (iso_verif_egalite_choix_nostop(xtractot,x(iiso), &
-     &        err_msg//', verif trac egalite, iso '// &
+     &        err_msg//', verif trac egalite1, iso '// &
      &        TRIM(isoName(iiso)), &
      &        errmaxin,errmaxrelin).eq.1) then
             write(*,*) 'iso_verif_traceur 202: x=',x
 !            write(*,*) 'xtractot=',xtractot
+            do izone=1,nzone  
+              ixt=itZonIso(izone,iiso)
+              write(*,*) 'izone,iiso,ixt=',izone,iiso,ixt
+            enddo
             iso_verif_tracm_choix_nostop=1
           endif
@@ -2398 +2402 @@
         call iso_verif_egalite_std_vect( &
      &           xtractot,xiiso, &
-     &           err_msg//', verif trac egalite, iso ' &
+     &           err_msg//', verif trac egalite2, iso ' &
      &           //TRIM(isoName(iiso)), &
      &           n,m,errmax,errmaxrel)