Changeset 291

Timestamp:

Sep 9, 2011, 4:30:43 PM (13 years ago)

Author:

acolaitis

Message:

Sorry, removed the .eq. .true. to suit picky compilers. This is a bad habit from IDL coding...

File:

• trunk/LMDZ.MARS/libf/phymars/vdifc.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/vdifc.F

@@ -236 +236 @@
         zu2(:)=pu(:,1)*pu(:,1)+pv(:,1)*pv(:,1)
 
-        IF (callrichsl .eq. .true.) THEN
+        IF (callrichsl) THEN
         zcdv(:)=zcdv_true(:)*sqrt(zu2(:)+(0.7*wmax(:))**2)     ! subgrid gustiness added by quadratic interpolation with a coeff beta
         zcdh(:)=zcdh_true(:)*sqrt(zu2(:)+(1.2*wmax(:))**2)     ! LES comparisons. This parameter is linked to the thermals settings)