Changeset 3924 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

Jun 8, 2021, 6:33:45 PM (3 years ago)

Author:

Laurent Fairhead

Message:

Version modifiee par Camille pour version isotopique

File:

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

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -24 +24 @@
                       iso_indnum,zone_num,phase_num,&
                       indnum_fn_num,index_trac,&
-                      niso,ntraceurs_zone,ntraciso
+                      niso,ntraceurs_zone,ntraciso,nqtottr,itr_indice
 #ifdef CPP_StratAer
   USE infotrac, ONLY: nbtr_bin, nbtr_sulgas, id_OCS_strat, &
@@ -146 +146 @@
 
   ! Initialize tracer names, numbers, etc. for physics
-  CALL init_infotrac_phy(nqtot,nqo,nbtr,nqCO2,tname,ttext,type_trac,&
+  CALL init_infotrac_phy(nqtot,nqo,nbtr,nqtottr,nqCO2,tname,ttext,type_trac,&
                          niadv,conv_flg,pbl_flg,solsym,&
                          nqfils,nqdesc,nqdesc_tot,iqfils,iqpere,&
@@ -154 +154 @@
                          iso_indnum,zone_num,phase_num,&
                          indnum_fn_num,index_trac,&
-                         niso,ntraceurs_zone,ntraciso&
+                         niso,ntraceurs_zone,ntraciso,itr_indice &
 #ifdef CPP_StratAer
                          ,nbtr_bin,nbtr_sulgas&