Changeset 5684 for LMDZ6/branches/contrails/libf/phylmd/infotrac_phy.F90

Timestamp:

May 26, 2025, 5:20:01 PM (2 weeks ago)

Author:

aborella

Message:

Various small adjustments

File:

• LMDZ6/branches/contrails/libf/phylmd/infotrac_phy.F90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/infotrac_phy.F90

@@ -353 +353 @@
         (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_physic(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_physic(modname, 'problem with the computation of nqtottr', 1)
 
    !--- Compute indices for water
@@ -370 +370 @@
    iqtc = strIdx(tracers(:)%name, 'CIRCONTWATER')
    !--Two ways of declaring tracers - the way below should be deleted in the future
-   IF (icf.EQ.0) icf  = strIdx(tracers(:)%name, addPhase('H2O', 'f'))
+   IF (icf.EQ.0)  icf  = strIdx(tracers(:)%name, addPhase('H2O', 'f'))
    IF (iqvc.EQ.0) iqvc = strIdx(tracers(:)%name, addPhase('H2O', 'c'))
    IF (icfl.EQ.0) icfl = strIdx(tracers(:)%name, addPhase('H2O', 'z'))