Changeset 3798 for LMDZ6/branches/Ocean_skin/libf/dyn3dmem/leapfrog_loc.F

Timestamp:

Jan 11, 2021, 11:24:08 PM (4 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/leapfrog_loc.F (modified) (4 diffs)

LMDZ6/branches/Ocean_skin/libf/dyn3dmem/leapfrog_loc.F

@@ -1543 +1543 @@
          endif
 #endif
+#ifdef REPROBUS
+         if (type_trac == 'repr') then
+         call finalize_reprobus
+         endif
+#endif
 
 c$OMP MASTER
@@ -1593 +1598 @@
               endif
 #endif
+#ifdef REPROBUS
+              if (type_trac == 'repr') then
+         call finalize_reprobus
+              endif
+#endif
 
 c$OMP MASTER
@@ -1742 +1752 @@
                  if (type_trac == 'inca') then 
                     call finalize_inca
+                 endif
+#endif
+#ifdef REPROBUS
+                 if (type_trac == 'repr') then
+         call finalize_reprobus
                  endif
 #endif
@@ -1834 +1849 @@
       endif
 #endif
+#ifdef REPROBUS
+      if (type_trac == 'repr') then
+         call finalize_reprobus
+      endif
+#endif
 
 c$OMP MASTER