Changeset 5234 for LMDZ6/trunk/libf

Timestamp:

Sep 30, 2024, 5:55:57 PM (30 hours ago)

Author:

dcugnet

Message:

Fix for strataer: some variables were not defined due to the IF(is_master) RETURN

File:

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

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -371 +371 @@
       CALL abort_physic(modname, 'problem with the computation of nqtottr', 1)
 
+#ifdef CPP_StratAer
+   IF (type_trac == 'coag') THEN
+      nbtr_bin    = COUNT([(tracers(iq)%name(1:3)=='BIN', iq=1, nqtot)])
+      nbtr_sulgas = COUNT([(tracers(iq)%name(1:3)=='GAS', iq=1, nqtot)])
+      tnames = PACK(tracers(:)%name, MASK=tracers(:)%isInPhysics)
+      id_BIN01_strat = strIdx(tnames, 'BIN01'   )
+      id_OCS_strat   = strIdx(tnames, 'GASOCS'  )
+      id_SO2_strat   = strIdx(tnames, 'GASSO2'  )
+      id_H2SO4_strat = strIdx(tnames, 'GASH2SO4')
+      id_TEST_strat  = strIdx(tnames, 'GASTEST' )
+   END IF
+#endif
+
    !=== DISPLAY THE RESULTS
    IF(.NOT.is_master) RETURN
@@ -405 +418 @@
 #ifdef CPP_StratAer
    IF (type_trac == 'coag') THEN
-      nbtr_bin    = COUNT([(tracers(iq)%name(1:3)=='BIN', iq=1, nqtot)])
-      nbtr_sulgas = COUNT([(tracers(iq)%name(1:3)=='GAS', iq=1, nqtot)])
-      tnames = PACK(tracers(:)%name, MASK=tracers(:)%isInPhysics)
-      id_BIN01_strat = strIdx(tnames, 'BIN01'   )
-      id_OCS_strat   = strIdx(tnames, 'GASOCS'  )
-      id_SO2_strat   = strIdx(tnames, 'GASSO2'  )
-      id_H2SO4_strat = strIdx(tnames, 'GASH2SO4')
-      id_TEST_strat  = strIdx(tnames, 'GASTEST' )
       CALL msg('nbtr_bin       ='//TRIM(int2str(nbtr_bin      )), modname)
       CALL msg('nbtr_sulgas    ='//TRIM(int2str(nbtr_sulgas   )), modname)