Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/cv3_buoy.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3_buoy.f90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/cv3_buoy.f90

@@ +1 @@
+MODULE cv3_buoy_mod
+  PRIVATE
+
+  PUBLIC cv3_buoy
+
+CONTAINS
+
 SUBROUTINE cv3_buoy(nloc, ncum, nd, icb, inb, pbase, plcl, p, ph, ale, cin, &
     tv, tvp, buoy)
@@ -38 +45 @@
   PARAMETER (buoymin=2.)
 
-  LOGICAL fixed_bll
-  SAVE fixed_bll
-  DATA fixed_bll/.TRUE./
-  !$OMP THREADPRIVATE(fixed_bll)
-
+  LOGICAL, PARAMETER :: fixed_bll = .TRUE.
 
   ! print *,' Ale+cin ',ale(1)+cin(1)
@@ -153 +156 @@
   RETURN
 END SUBROUTINE cv3_buoy
+
+END MODULE cv3_buoy_mod