Changeset 2548 for trunk/LMDZ.GENERIC/libf

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

File:

• trunk/LMDZ.GENERIC/libf/phystd/tabfi_mod.F90 (modified) (2 diffs)

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