Changeset 500 for trunk/LMDZ.COMMON/libf


Ignore:
Timestamp:
Jan 16, 2012, 7:43:40 PM (13 years ago)
Author:
slebonnois
Message:

Sorry, correction of some bugs from recent Titan commit...

Location:
trunk/LMDZ.COMMON/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3d/leapfrog.F

    r497 r500  
    401401     $              finvmaold                                    )
    402402
    403        IF ((planet_type.eq.titan).and.(tidal)) then
     403       IF ((planet_type.eq."titan").and.(tidal)) then
    404404c-----------------------------------------------------------------------
    405405c   Marées gravitationnelles causées par Saturne

  • trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F

    r497 r500  
    702702     $              finvmaold                                    )
    703703
    704        IF ((planet_type.eq.titan).and.(tidal)) then
     704       IF ((planet_type.eq."titan").and.(tidal)) then
    705705c-----------------------------------------------------------------------
    706706c   Marées gravitationnelles causées par Saturne
Note: See TracChangeset for help on using the changeset viewer.