Changeset 3507

Timestamp:

Nov 8, 2024, 10:57:31 AM (6 weeks ago)

Author:

afalco

Message:

Pluto: more info on variables

File:

• trunk/LMDZ.PLUTO/libf/phypluto/comsaison_h.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/comsaison_h.F90

@@ -2 +2 @@
        module comsaison_h
 
-       implicit none 
+       implicit none
 
 !       integer,save :: isaison
@@ -8 +8 @@
 !!$OMP THREADPRIVATE(isaison,callsais)
 
-       real,save :: dist_star,declin,right_ascen
+       real,save :: dist_star   ! Distance Star-Planet in UA
+       real,save :: declin      ! Solar declination (rad)
+       real,save :: right_ascen ! Right ascension (rad)
 !$OMP THREADPRIVATE(dist_star,declin,right_ascen)