Changeset 923 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Mar 3, 2008, 1:51:32 PM (16 years ago)
Author:
lmdzadmin
Message:

Correction petit bug indice ibas_con
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/calwake.F

    r879 r923  
    120120c      print*, 'sigd0,sigd', sigd0, sigd(i)
    121121      ph(klev+1)=0.
    122       ibas = ibas_con(1)
     122cIM bug indice ibas_con: ibas = ibas_con(1)
     123      ibas = ibas_con(i)
    123124
    124125      ktopw = wake_k(i)
Note: See TracChangeset for help on using the changeset viewer.