Changeset 926 for LMDZ4/trunk/libf/phylmd

Timestamp:

Mar 12, 2008, 6:20:17 PM (17 years ago)

Author:

lmdzadmin

Message:

Enleve bogues du 1d pour thermcell_main.F90 et pour "first" appel pour yamada4.F
FH/IM

Location:

LMDZ4/trunk/libf/phylmd

Files:

• thermcell_main.F90 (modified) (4 diffs)
• yamada4.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/thermcell_main.F90

@@ -145 +145 @@
       real wght_th(klon,klev)
       integer lalim_conv(klon)
-      logical therm
-      save therm
+!v1d     logical therm
+!v1d     save therm
 
       character*2 str2
@@ -177 +177 @@
             f0(ig)=1.e-5
             zmax0(ig)=40.
-            therm=.false.
+!v1d        therm=.false.
       endif
       enddo 
@@ -324 +324 @@
 
       do ig=1,klon
-      if (alim_star(ig,1).gt.1.e-10) then
-         therm=.true.
-      endif
+!v1d     if (alim_star(ig,1).gt.1.e-10) then
+!v1d     therm=.true.
+!v1d     endif
       enddo
 !-----------------------------------------------------------------------------
@@ -626 +626 @@
 !test pour prolonger la convection
       do ig=1,ngrid
-      if ((alim_star(ig,1).lt.1.e-10).and.(therm)) then
+!v1d  if ((alim_star(ig,1).lt.1.e-10).and.(therm)) then
+      if ((alim_star(ig,1).lt.1.e-10)) then
       lalim_conv(ig)=1
       wght_th(ig,1)=1.

LMDZ4/trunk/libf/phylmd/yamada4.F

@@ -71 +71 @@
       integer ipas
       save first,ipas
-      data first,ipas/.true.,0/
+cFH/IM     data first,ipas/.true.,0/
+      data first,ipas/.false.,0/
 c$OMP THREADPRIVATE( first,ipas)