Changeset 4052 for LMDZ6/trunk/libf/phylmd

Timestamp:

Dec 26, 2021, 10:27:36 PM (4 years ago)

Author:

dcugnet

Message:

Fixes for previous commit:

• few tracers(:)%nqChilds were errouneously replaced with tarcers(:)%nqDesc
• minor changes

File:

• LMDZ6/trunk/libf/phylmd/infotrac_phy.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -145 +145 @@
 
     CHARACTER(LEN=30) :: modname="init_infotrac_phy"
-    INTEGER :: iq
 
     nqtot=nqtot_
@@ -153 +152 @@
     nqtottr=nqtottr_
     ALLOCATE(tracers(nqtot)); tracers(:) = tracers_(:)
-    tracers(:)%isAdvected = tracers(:)%iadv  >   0
-!    tracers(:)%isH2Ofamily = delPhase(tracers(:)%gen0Name) == 'H2O'
-    tracers(:)%isH2Ofamily = [(tracers(iq)%gen0Name(1:3) == 'H2O', iq=1, nqtot)]
 #ifdef CPP_StratAer
     nbtr_bin=nbtr_bin_
@@ -209 +205 @@
       ALLOCATE(index_trac(ntraceurs_zone,niso))
       index_trac(:,:)=index_trac_(:,:)
-
-      ALLOCATE(itr_indice(nqtottr))
-      itr_indice(:)=itr_indice_(:)
     ENDIF ! of IF(ok_isotopes)
+
+    ALLOCATE(itr_indice(nqtottr))
+    itr_indice(:)=itr_indice_(:)
   
   END SUBROUTINE init_infotrac_phy