Changeset 1396


Ignore:
Timestamp:
Mar 12, 2015, 2:14:04 PM (10 years ago)
Author:
emillour
Message:

Venus/Titan? physics:
Fix typo in iniphysiq.F90
EM

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/iniphysiq.F90

    r1395 r1396  
    145145    WRITE (lunout, *) '  in the dynamics punjours=', punjours
    146146    WRITE (lunout, *) '   but in the physics RDAY=', rday
    147     IF (abs(rday-punjours)>0.01*punjour) THEN
     147    IF (abs(rday-punjours)>0.01*punjours) THEN
    148148        ! stop here if the relative difference is more than 1%
    149149      abort_message = 'length of day discrepancy'

  • trunk/LMDZ.VENUS/libf/phyvenus/iniphysiq.F90

    r1395 r1396  
    145145    WRITE (lunout, *) '  in the dynamics punjours=', punjours
    146146    WRITE (lunout, *) '   but in the physics RDAY=', rday
    147     IF (abs(rday-punjours)>0.01*punjour) THEN
     147    IF (abs(rday-punjours)>0.01*punjours) THEN
    148148        ! stop here if the relative difference is more than 1%
    149149      abort_message = 'length of day discrepancy'
Note: See TracChangeset for help on using the changeset viewer.