Changeset 4033 for LMDZ6/trunk/libf/phylmdiso/cva_driver.F90

Timestamp:

Nov 30, 2021, 2:00:13 PM (3 years ago)

Author:

crisi

Message:

nettoyage de sorties ecran

File:

• LMDZ6/trunk/libf/phylmdiso/cva_driver.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmdiso/cva_driver.F90

@@ -55 +55 @@
 #ifdef ISO
   USE infotrac_phy, ONLY: ntraciso,niso,niso,index_trac,ntraceurs_zone
-  USE isotopes_mod, ONLY: iso_eau,iso_HDO,ridicule,bidouille_anti_divergence
+  USE isotopes_mod, ONLY: iso_eau,iso_HDO,iso_O18,ridicule,bidouille_anti_divergence
 #ifdef ISOVERIF
     use isotopes_verif_mod
@@ -963 +963 @@
 #ifdef ISO
 #ifdef ISOVERIF
-       write(*,*) 'cva_driver 621: après cv3_undilute1'
+       write(*,*) 'cva_driver 621: apres cv3_undilute1'
        do k=1,nd
         do i = 1, len
@@ -1121 +1121 @@
 #ifdef ISO
 #ifdef ISOVERIF
-       write(*,*) 'cva_driver 720: après cv3_compress'
-       write(*,*) 'len, nloc, ncum,nd=',len, nloc, ncum,nd
+       write(*,*) 'cva_driver 720: apres cv3_compress'
+!       write(*,*) 'len, nloc, ncum,nd=',len, nloc, ncum,nd
        do k=1,nd
         do i = 1, ncum
@@ -1149 +1149 @@
          call iso_verif_positif(qnk(i),'cva_driver 966b')  
        enddo !do i = 1, ncum
-       write(*,*) 'cva_driver 1142: après cv3_compress OK'
+!       write(*,*) 'cva_driver 1142: apres cv3_compress OK'
 #endif
 #endif
@@ -1357 +1357 @@
 #ifdef ISO
 #ifdef ISOVERIF
-       write(*,*) 'cva_driver 837: après cv3_mixing'
-       write(*,*) 'qent,xtent(1,1,1)=',qent(1,1,1),xtent(iso_eau,1,1,1)
+       write(*,*) 'cva_driver 837: apres cv3_mixing'
+!       write(*,*) 'qent,xtent(1,1,1)=',qent(1,1,1),xtent(iso_eau,1,1,1)
        do k=1,nd
        do j = 1, nd
@@ -1597 +1597 @@
             call iso_verif_aberrant( &
      &          (xt(iso_HDO,i,k)+delt*fxt(iso_HDO,i,k)) &
-     &          /(q(i,k)+delt*fq(i,k)),'cva_driver 855')
+     &          /(q(i,k)+delt*fq(i,k)),'cva_driver 855a')
+                if (iso_O18.gt.0) then
+            call iso_verif_O18_aberrant( &
+     &          (xt(iso_HDO,i,k)+delt*fxt(iso_HDO,i,k)) &
+     &          /(q(i,k)+delt*fq(i,k)), &
+     &          (xt(iso_O18,i,k)+delt*fxt(iso_O18,i,k)) &
+     &          /(q(i,k)+delt*fq(i,k)),'cva_driver 855b')
+                endif
           endif
          endif