Changeset 978 for LMDZ4/trunk/libf/phylmd/phyetat0.F

Timestamp:

Jun 24, 2008, 12:45:12 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Encore quelques bugs consecutifs au renommage des variables YM
LF

File:

• LMDZ4/trunk/libf/phylmd/phyetat0.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/phyetat0.F

@@ -63 +63 @@
       REAL zmax0_glo(klon_glo), f0_glo(klon)
       REAL ema_work1_glo(klon_glo, klev), ema_work2_glo(klon_glo, klev)
-      REAL wake_deltat_glo(klon,klev), wake_deltaq_glo(klon,klev)
-      REAL wake_s_glo(klon), wake_cstar_glo(klon), wake_fip_glo(klon)
+      REAL wake_deltat_glo(klon_glo,klev), wake_deltaq_glo(klon_glo,klev)
+      REAL wake_s_glo(klon_glo), wake_cstar_glo(klon_glo)
+      REAL wake_fip_glo(klon_glo)
       REAL tsoil_p(klon,nsoilmx,nbsrf)
       REAL tslab_p(klon), seaice_p(klon)
@@ -1616 +1617 @@
            xmax = -1.0E+20
            DO k = 1, klev
-           DO i = 1, klon
+           DO i = 1, klon_glo
               xmin = MIN(wake_deltat_glo(i,k),xmin)
               xmax = MAX(wake_deltat_glo(i,k),xmax)
@@ -1644 +1645 @@
            xmax = -1.0E+20
            DO k = 1, klev
-           DO i = 1, klon
+           DO i = 1, klon_glo
               xmin = MIN(wake_deltaq_glo(i,k),xmin)
               xmax = MAX(wake_deltaq_glo(i,k),xmax)