Changeset 4057

Timestamp:

Jan 12, 2022, 11:16:06 PM (2 years ago)

Author:

dcugnet

Message:

Temporarly removing the test on nqtottr.
Will be included later, when tracers(:)%iso_iName will be defined.

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -572 +572 @@
         write(lunout,*) 'infotrac 704: nqtottr,nqtot,nqo=',nqtottr,nqtot,nqo
         ! Rq: nqtottr n'est pas forcement egal a nbtr dans le cas ou new_iq /= nqtrue
-        if (COUNT(tracers(:)%iso_iName == 0) /= nqtottr) &
-            CALL abort_gcm('infotrac_init','pb dans le calcul de nqtottr',1)
+!        if (COUNT(tracers(:)%iso_iName == 0) /= nqtottr) &
+!            CALL abort_gcm('infotrac_init','pb dans le calcul de nqtottr',1)
 !    endif !if (ntraciso.gt.0) then