Ignore:
Timestamp:
Jun 24, 2008, 3:02:41 PM (16 years ago)
Author:
Laurent Fairhead
Message:

On fixe le low level buoyancy JYG
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/cv3_buoy.F

    r879 r980  
    4040      data buoymin /2./
    4141
     42      logical fixed_bll
     43      SAVE fixed_bll
     44      data fixed_bll /.TRUE./
     45$OMP THREADPRIVATE(fixed_bll)
     46
     47
    4248c      print *,' Ale+cin ',ale(1)+cin(1)
    4349c--------------------------------------------------------------
     
    5359c -- Compute low level buoyancy ( function of Ale+Cin )
    5460c -------------------------------------------------------------
    55 
     61      IF (fixed_bll) THEN
     62c
    5663      do il = 1,ncum
    57         bll(il) = 0.
    58       end do
     64        bll(il) = 0.5
     65      end DO
     66      else
    5967
    6068      do il = 1,ncum
     
    7785        bll(il) = min(bll(il),buoymin)
    7886       ENDIF
    79       end do
     87      end DO
     88c
     89      ENDIF     !(fixed_bll)
     90
    8091
    8192c -------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.