Changeset 4035 for trunk/LMDZ.MARS/libf/aeronomars/euvheat.F90

Timestamp:

Jan 30, 2026, 12:40:55 PM (4 weeks ago)

Author:

emillour

Message:

Mars PCM:
Cleanup and correction around thermospheric processes: ensure that the
tendencies from previous processes are included before being sent to
the next process (was not the case for conduction).
EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/euvheat.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/aeronomars/euvheat.F90

@@ -6 +6 @@
 
       SUBROUTINE euvheat(ngrid,nlayer,nq,pt,pdt,pplev,pplay,zzlay, &
-           mu0,ptimestep,ptime,zday,pq,pdq,pdteuv)
+           mu0,ptimestep,zday,pq,pdq,pdteuv)
 
       use tracer_mod, only: igcm_co2, igcm_co, igcm_o, igcm_o1d,         &
@@ -47 +47 @@
       integer,intent(in) :: nlayer ! number of atmospheric layers
       integer,intent(in) :: nq ! number of advected tracers
-      real :: pt(ngrid,nlayer)
-      real :: pdt(ngrid,nlayer)
-      real :: pplev(ngrid,nlayer+1)
-      real :: pplay(ngrid,nlayer)
-      real :: zzlay(ngrid,nlayer)
-      real :: mu0(ngrid)
-      real :: ptimestep,ptime
-      real :: zday
-      real :: pq(ngrid,nlayer,nq)
-      real :: pdq(ngrid,nlayer,nq)
-
-      real :: pdteuv(ngrid,nlayer)
+      real,intent(in) :: pt(ngrid,nlayer) ! input temperature (K)
+      real,intent(in) :: pdt(ngrid,nlayer) ! input tendency on temperatur (K/s)
+      real,intent(in) :: pplev(ngrid,nlayer+1) ! pressure (Pa) at layer interfaces
+      real,intent(in) :: pplay(ngrid,nlayer) ! pressure (Pa) at mid-layer
+      real,intent(in) :: zzlay(ngrid,nlayer) ! mid-layer altitude (m)
+      real,intent(in) :: mu0(ngrid) ! cosine of solar zenith angle
+      real,intent(in) :: ptimestep ! physics time step (s)
+      real,intent(in) :: zday ! date (sols since Ls=0)
+      real,intent(in) :: pq(ngrid,nlayer,nq) ! input tracer mmr (kg/kg_air)
+      real,intent(in) :: pdq(ngrid,nlayer,nq) ! input tendencies on tracers (kg/kg_air/s)
+
+      real,intent(out) :: pdteuv(ngrid,nlayer) ! temperature tendency (K/s)
 !
 !    Local variables :