Changeset 923

Timestamp:

Mar 3, 2008, 1:51:32 PM (17 years ago)

Author:

lmdzadmin

Message:

Correction petit bug indice ibas_con
IM

File:

• LMDZ4/trunk/libf/phylmd/calwake.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/calwake.F

@@ -120 +120 @@
 c      print*, 'sigd0,sigd', sigd0, sigd(i)
       ph(klev+1)=0.
-      ibas = ibas_con(1)
+cIM bug indice ibas_con: ibas = ibas_con(1)
+      ibas = ibas_con(i)
 
       ktopw = wake_k(i)