Changeset 5846 for LMDZ6/branches/contrails/libf/dyn3d_common

Timestamp:

Sep 30, 2025, 10:37:25 AM (5 months ago)

Author:

aborella

Message:

Multiple modifications to contrails scheme

File:

• LMDZ6/branches/contrails/libf/dyn3d_common/infotrac.f90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/dyn3d_common/infotrac.f90

@@ -362 +362 @@
         (delPhase(tracers(:)%gen0Name)     == 'CLDFRA')))
 !   IF(COUNT(tracers%iso_iName == 0) - COUNT(delPhase(tracers%name) == 'H2O' .AND. tracers%component == 'lmdz') /= nqtottr) &
-   IF(COUNT(tracers%iso_iName == 0) - COUNT(tracers(:)%component == 'lmdz' .AND. &
-       ((delPhase(tracers(:)%name)     == 'H2O') .OR. &
-        (delPhase(tracers(:)%name)     == 'CLDFRA'))) /= nqtottr) &
-      CALL abort_gcm(modname, 'problem with the computation of nqtottr', 1)
+!   IF(COUNT(tracers%iso_iName == 0) - COUNT(tracers(:)%component == 'lmdz' .AND. &
+!       ((delPhase(tracers(:)%name)     == 'H2O') .OR. &
+!        (delPhase(tracers(:)%name)     == 'CLDFRA'))) /= nqtottr) &
+!      CALL abort_gcm(modname, 'problem with the computation of nqtottr', 1)
 
    !=== DISPLAY THE RESULTS