Changeset 1130

Timestamp:

Mar 20, 2009, 5:15:18 PM (16 years ago)

Author:

idelkadi

Message:

Rajout d'argument dans concvl.F

Location:

LMDZ4/branches/LMDZ4-dev/libf/phylmd

Files:

• concvl.F (modified) (4 diffs)
• physiq.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/concvl.F

@@ -25 +25 @@
 c
       USE dimphy
+      USE infotrac, ONLY : nbtr
       IMPLICIT none
 c======================================================================
@@ -67 +68 @@
 c
 #include "dimensions.h"
-cccccc#include "dimphy.h"
-c
-      integer NTRAC
-      PARAMETER (NTRAC=nqmx-2)
 c
        INTEGER iflag_con,iflag_clos
@@ -78 +75 @@
        REAL t_wake(klon,klev),q_wake(klon,klev)
        Real s_wake(klon)
-       REAL tra(klon,klev,ntrac)
+       REAL tra(klon,klev,nbtr)
        INTEGER ntra
        REAL work1(klon,klev),work2(klon,klev),ptop2(klon)
@@ -86 +83 @@
        REAL d_t(klon,klev),d_q(klon,klev),d_u(klon,klev),d_v(klon,klev)
        REAL dd_t(klon,klev),dd_q(klon,klev)
-       REAL d_tra(klon,klev,ntrac)
+       REAL d_tra(klon,klev,nbtr)
        REAL rain(klon),snow(klon)
 c

LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

@@ -2048 +2048 @@
           CALL concvl (iflag_con,iflag_clos,
      .        dtime,paprs,pplay,t_undi,q_undi,
-     .        t_wake,q_wake,
+     .        t_wake,q_wake,wake_s,
      .        u_seri,v_seri,tr_seri,nbtr,
      .        ALE,ALP,