Changeset 1576

Timestamp:

Oct 7, 2011, 2:37:23 PM (13 years ago)

Author:

Laurent Fairhead

Message:

Problème d'initialisation et de dimensionnement

---

Initialisation and dimension problem

Location:

LMDZ5/trunk/libf/phylmd

Files:

• calwake.F (modified) (2 diffs)
• concvl.F (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/calwake.F

@@ -60 +60 @@
       REAL wake_dtKE(klon,klev),wake_dqKE(klon,klev)
       REAL wake_dtPBL(klon,klev),wake_dqPBL(klon,klev)
-      REAL wake_omg(klon,klev+1),wake_dp_deltomg(klon,klev)
+      REAL wake_omg(klon,klev),wake_dp_deltomg(klon,klev)
       REAL wake_spread(klon,klev),wake_Cstar(klon)
       REAL wake_ddeltat(klon,klev),wake_ddeltaq(klon,klev)
@@ -84 +84 @@
       REAL tu(klon,klev),qu(klon,klev)
       REAL hw(klon),sigmaw(klon),wape(klon),fip(klon),gfl(klon)
-      REAL omgbdth(klon,klev),dp_omgb(klon,klev)
+      REAL omgbdth(klon,klev+1),dp_omgb(klon,klev)
       REAL dtKE(klon,klev),dqKE(klon,klev)
       REAL dtPBL(klon,klev),dqPBL(klon,klev)

LMDZ5/trunk/libf/phylmd/concvl.F

@@ -248 +248 @@
          DO i = 1, klon
           cbmf(i) = 0.
-          plcl(i) = 0.
+!          plcl(i) = 0.
           sigd(i) = 0.
          ENDDO
@@ -256 +256 @@
       plfc(:)  = 0.
       wbeff(:) = 100.
+      plcl(:) = 0.
 
       DO k = 1, klev+1