Changeset 591 for trunk/LMDZ.GENERIC/libf/phystd
- Timestamp:
- Mar 19, 2012, 8:31:05 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/rcm1d.F
r590 r591 361 361 362 362 apoastr = -99999. 363 PRINT *,'M INDIST STAR-PLANET in AU ?'363 PRINT *,'MAX DIST STAR-PLANET in AU ?' 364 364 call getin("apoastr",apoastr) 365 365 IF (apoastr.eq.-99999.) THEN
Note: See TracChangeset
for help on using the changeset viewer.