Ignore:
Timestamp:
Apr 14, 2011, 11:47:04 AM (14 years ago)
Author:
slebonnois
Message:

SLebonnois: discretisation verticale: cohabitation entre
la methode Terre et les autres.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/dyn3dpar/iniconst.F

    r1 r109  
    5353c-----------------------------------------------------------------------
    5454
    55        CALL disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
    56 c
     55      if (planet_type.eq."earth") then
     56       CALL disvert_terre(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
     57      else
     58       CALL disvert_noterre
     59      endif
    5760c
    5861       RETURN
Note: See TracChangeset for help on using the changeset viewer.