Changeset 720 for trunk/LMDZ.MARS/libf

Timestamp:

Jul 12, 2012, 3:08:01 PM (12 years ago)

Author:

jbmadeleine

Message:

Added the ability to set up the orbital parameters in run.def by

adding new calls to "getin" in testphys1d.F.

File:

• trunk/LMDZ.MARS/libf/phymars/testphys1d.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/testphys1d.F

@@ -410 +410 @@
       call getin("tauvis",tauvis)
       write(*,*) " tauvis = ",tauvis
+
+c Orbital parameters
+c ------------------
+      print *,'Min. distance Sun-Mars (Mkm)?'
+      call getin("periheli",periheli)
+      write(*,*) " periheli = ",periheli
+
+      print *,'Max. distance Sun-Mars (Mkm)?'
+      call getin("aphelie",aphelie)
+      write(*,*) " aphelie = ",aphelie
+
+      print *,'Day of perihelion?'
+      call getin("periday",peri_day)
+      write(*,*) " periday = ",peri_day
+
+      print *,'Obliquity?'
+      call getin("obliquit",obliquit)
+      write(*,*) " obliquit = ",obliquit
  
 c  latitude/longitude