Changeset 608 for trunk/LMDZ.MARS/libf/phymars/solarlong.F
- Timestamp:
- Mar 31, 2012, 2:12:55 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/solarlong.F
r38 r608 61 61 c ------------------------------------------------------- 62 62 63 c Initialisation eventuelle:64 if(.not.unitastr.gt.1.e-4) then65 call iniorbit(249.22,206.66,669.,485.,25.2)66 endif67 68 63 c calcul de l'zanomalie moyenne 69 64
Note: See TracChangeset
for help on using the changeset viewer.