Changeset 1491 for LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/physiq.F

Timestamp:

Feb 23, 2011, 1:20:08 PM (13 years ago)

Author:

musat

Message:

Couplage Thermiques/Emanuel? seulement si T<0 avec iflag_coupl==2 (FH)
Correction bug initialisation ptconvth (FH/JYG)
Correction dimensions tableau paprs_glo definition ZPM1R pour le 1D (JYG)
IM

File:

• LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ5/branches/LMDZ5V2.0-dev/libf/phylmd/physiq.F

@@ -2465 +2465 @@
       endif
 ! ----------------------------------------------------------------------
+!IM/FH: 2011/02/23 
+! Couplage Thermiques/Emanuel seulement si T<0
+      if (iflag_coupl==2) then
+        print*,'Couplage Thermiques/Emanuel seulement si T<0'
+        do i=1,klon
+           if (t_seri(i,lmax_th(i))>273.) then
+              Ale_bl(i)=0.
+           endif
+        enddo
+      endif
 
          endif
@@ -2840 +2850 @@
 ! de la convection profonde.
 
-         print*,'TEST SCHEMA DE NUAGES '
+!IM/FH: 2011/02/23 
+! definition des points sur lesquels ls thermiques sont actifs
+         print*,'TEST SCHEMA DE NUAGES DEBUG '
+         ptconvth(:,:)=fm_therm(:,:)>0.
          do k=1,klev
             do i=1,klon