Changeset 3290 for trunk/LMDZ.MARS/libf

Timestamp:

Apr 3, 2024, 6:20:33 PM (9 months ago)

Author:

jliu

Message:

21/03/2024 == Jliu

Found and fixed another small bug in photochemistry related to commit r3289.
Now it should not submit-crash-resubmit again.

File:

• trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F90

@@ -2461 +2461 @@
 ! local
 
-integer :: nb_phot, nb_reaction_3, nb_reaction_4
+integer, save :: nb_phot, nb_reaction_3, nb_reaction_4
+!$OMP THREADPRIVATE(nb_phot, nb_reaction_3, nb_reaction_4)
 integer :: i_dummy