Changeset 2548

Timestamp:

Jul 9, 2021, 9:19:22 AM (3 years ago)

Author:

emillour

Message:

Generic GCM:
Remove misleading comment [peri/apo]astron should be in AU, not Mkm.
EM

Location:

trunk/LMDZ.GENERIC

Files:

• README (modified) (1 diff)
• deftank/start_earlymars (modified) (1 diff)
• deftank/start_earth (modified) (1 diff)
• libf/phystd/tabfi_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/README

@@ -1672 +1672 @@
 Adding k-coefficients mixing on the fly
 Working with ModernTrac
+
+== 09/07/2021 == EM
+Remove misleading comment [peri/apo]astron should be in AU, not Mkm.

trunk/LMDZ.GENERIC/deftank/start_earlymars

@@ -8 +8 @@
 0.0
 periastr
-227.9
+1.523
 apoastr
-227.9
+1.523
 year_day
 669

trunk/LMDZ.GENERIC/deftank/start_earth

@@ -8 +8 @@
 0.0
 periastr
-149.0
+1.0
 apoastr
-149.0
+1.0
 year_day
 365

trunk/LMDZ.GENERIC/libf/phystd/tabfi_mod.F90

@@ -423 +423 @@
         else if (modif(1:len_trim(modif)) .eq. 'periastr') then
           write(*,*) 'current value:',periastr
-          write(*,*) 'periastr should be 206.66 on present-day Mars'
+          write(*,*) 'periastr should be 1.3814 AU on present-day Mars'
           write(*,*) 'enter new value:'
  117      read(*,*,iostat=ierr) periastr
@@ -432 +432 @@
         else if (modif(1:len_trim(modif)) .eq. 'apoastr') then
           write(*,*) 'current value:',apoastr
-          write(*,*) 'apoastr should be 249.22 on present-day Mars'
+          write(*,*) 'apoastr should be 1.666 AU on present-day Mars'
           write(*,*) 'enter new value:'
  118      read(*,*,iostat=ierr) apoastr