Ignore:
Timestamp:
Dec 10, 2017, 9:45:17 PM (7 years ago)
Author:
aslmd
Message:

an idea to cope with different planets in streamfunction

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/streamfunction.F90

    r644 r1847  
    9797data    Rgas /190./
    9898
     99#ifdef MARS
     100data    g0 /3.7257964/
     101data    a0 /3396000/  ! radius=3396.km
     102data    daysec /88775/ ! Duration of day=88775 s
     103data    Rgas /190./
     104#endif
     105
     106#ifdef JUPITER
     107data    g0 /24.79/
     108data    a0 /69911000./
     109data    daysec /35733./
     110data    Rgas /3745.276/
     111#endif
     112
     113
    99114
    100115!===============================================================================
Note: See TracChangeset for help on using the changeset viewer.