Ignore:
Timestamp:
Mar 12, 2008, 6:20:17 PM (16 years ago)
Author:
lmdzadmin
Message:

Enleve bogues du 1d pour thermcell_main.F90 et pour "first" appel pour yamada4.F
FH/IM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r878 r926  
    7171      integer ipas
    7272      save first,ipas
    73       data first,ipas/.true.,0/
     73cFH/IM     data first,ipas/.true.,0/
     74      data first,ipas/.false.,0/
    7475c$OMP THREADPRIVATE( first,ipas)
    7576
Note: See TracChangeset for help on using the changeset viewer.