Changeset 980 for LMDZ4/trunk/libf/phylmd

Timestamp:

Jun 24, 2008, 3:02:41 PM (16 years ago)

Author:

Laurent Fairhead

Message:

On fixe le low level buoyancy JYG
LF

File:

• LMDZ4/trunk/libf/phylmd/cv3_buoy.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/cv3_buoy.F

@@ -40 +40 @@
       data buoymin /2./
 
+      logical fixed_bll
+      SAVE fixed_bll
+      data fixed_bll /.TRUE./
+$OMP THREADPRIVATE(fixed_bll)
+
+
 c      print *,' Ale+cin ',ale(1)+cin(1)
 c--------------------------------------------------------------
@@ -53 +59 @@
 c -- Compute low level buoyancy ( function of Ale+Cin )
 c -------------------------------------------------------------
-
+      IF (fixed_bll) THEN
+c
       do il = 1,ncum
-        bll(il) = 0.
-      end do
+        bll(il) = 0.5
+      end DO
+      else
 
       do il = 1,ncum
@@ -77 +85 @@
         bll(il) = min(bll(il),buoymin)
        ENDIF
-      end do
+      end DO
+c
+      ENDIF     !(fixed_bll)
+
 
 c -------------------------------------------------------------