Ignore:
Timestamp:
Aug 30, 2013, 12:36:15 PM (11 years ago)
Author:
aslmd
Message:

LMDZ.GENERIC. Removed useless inidissip in newstart.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/newstart.F

    r996 r1023  
    14931493      phis(iip1,:) = phis(1,:)
    14941494
    1495       CALL inidissip ( lstardis, nitergdiv, nitergrot, niterh,
    1496      *                tetagdiv, tetagrot , tetatemp  )
    14971495      itau=0
    14981496      if (choix_1.eq.0) then
Note: See TracChangeset for help on using the changeset viewer.