Changeset 2597 for trunk/LMDZ.MARS/libf/phymars/comsaison_h.F90

Timestamp:

Dec 17, 2021, 10:28:22 AM (3 years ago)

Author:

emillour

Message:

Mars GCM:
Move "zls" (solar longitude) from being a local variable of physiq
to module comsaison_h. This is for convenience (saving zls and making
it available to the "plasma dynamical core").
Also cleaned up and commented comsaison_h in the process.
JYC+EM

File:

• trunk/LMDZ.MARS/libf/phymars/comsaison_h.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/comsaison_h.F90

@@ -3 +3 @@
 implicit none
 
-  logical,save :: callsais
-  integer,save :: isaison
-  real,save :: dist_sol
-  real,save :: declin
-  real,save,allocatable :: mu0(:)
-  real,save,allocatable :: fract(:)
+  real,save :: dist_sol ! Sun-Mars distance (AU)
+  real,save :: declin ! declination (rad)
+  real,save :: zls ! solar longitude (rad)
+  real,save,allocatable :: mu0(:) ! cosine of solar zenith angle
+  real,save,allocatable :: fract(:) ! day fraction over the time interval (0: night, 1: day)
   real,save,allocatable :: local_time(:) ! local solar time as fraction of day (0,1)
 
-!$OMP THREADPRIVATE(callsais,isaison,dist_sol,declin,mu0,fract,local_time)
+!$OMP THREADPRIVATE(dist_sol,declin,zls,mu0,fract,local_time)
 
 contains