Changeset 4753 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Nov 20, 2023, 11:45:31 AM (7 months ago)

Author:

lfalletti

Message:

Add d_q_emiss declaration for Reprobus, which was missing.

File:

• LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -615 +615 @@
 !$OMP THREADPRIVATE(budg_sed_part)
 #endif
+#ifdef REPROBUS
+      REAL,SAVE,ALLOCATABLE    :: d_q_emiss(:,:)
+!$OMP THREADPRIVATE(d_q_emiss)
+#endif
 
 CONTAINS