Changeset 953 for LMDZ4/trunk/libf/phylmd/calwake.F

Timestamp:

Apr 21, 2008, 6:46:08 PM (17 years ago)

Author:

lmdzadmin

Message:

On supprime variables pbase, ibas qui servent pas ; print sous clef JYG/FH
IM

File:

• LMDZ4/trunk/libf/phylmd/calwake.F (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/calwake.F

@@ -1 +1 @@
       SUBROUTINE CALWAKE(paprs,pplay,dtime
-     :             ,t,q,omgb,ibas_con
+     :             ,t,q,omgb
      :             ,dt_dwn,dq_dwn,M_dwn,M_up
      :             ,dt_a,dq_a,sigd
@@ -43 +43 @@
       REAL paprs(klon,klev+1),pplay(klon,klev)
       REAL t(klon,klev), q(klon,klev), omgb(klon,klev)
-      INTEGER ibas_con(klon)
       REAL dt_dwn(klon,klev), dq_dwn(klon,klev),M_dwn(klon,klev)
       REAL M_up(klon,klev)
@@ -73 +72 @@
       REAL p(klev),ph(klev+1),pi(klev)
       REAL te(klev),qe(klev),omgbe(klev),dtdwn(klev),dqdwn(klev)
-      INTEGER  ibas
       REAL dta(klev),dqa(klev)
       REAL wdtPBL(klev),wdqPBL(klev)
@@ -121 +119 @@
 c      print*, 'sigd0,sigd', sigd0, sigd(i)
       ph(klev+1)=0.
-cIM bug indice ibas_con: ibas = ibas_con(1)
-      ibas = ibas_con(i)
 
       ktopw = wake_k(i)
@@ -156 +152 @@
 
       call WAKE(p,ph,pi,dtime,sigd0
-     $                ,te,qe,omgbe,ibas
+     $                ,te,qe,omgbe
      $                ,dtdwn,dqdwn,amdwn,amup,dta,dqa
      $                ,wdtPBL,wdqPBL,udtPBL,udqPBL