Changeset 3949 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Jun 25, 2021, 12:56:39 PM (3 years ago)

Author:

crisi

Message:

Remove an isotopic test that is too stringent. With this correction, the isotopic BENCH works even with isoverif

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -2575 +2575 @@
               call iso_verif_positif(deltaD(xt_ancien(iso_eau,i,k) &
      &            /q_ancien(i,k))+400.0,'physiq 2045b')
-              call iso_verif_egalite_choix(d_xt_dyn(iso_hdo,i,k) &
-     &          /tnat(iso_hdo),d_q_dyn(i,k),'physiq 2045c',1e-7,0.4)
+!              call iso_verif_egalite_choix(d_xt_dyn(iso_hdo,i,k) &
+!     &          /tnat(iso_hdo),d_q_dyn(i,k),'physiq 2045c',1e-7,0.4)
               endif
              enddo